Popup - como associar 2 componentes com um mesmo popup e saber no clique do menu de qual componente o pop foi chamado

Top  Previous  Next

// como associar 2 componentes com um mesmo popup e saber no 

// clique do menu de qual componente o pop foi chamado 

 

procedure TTerminalGertecForm.mLimparClick(Sender: TObject);

begin

  if Popup.PopupComponent.Tag = 1 then  // coloque ListBox1.Tag = 1 e o outro ListBox2.Tag = 2 

    ListBox1.Items.Clear 

  else 

    ListBox2.Items.Clear;

end;