Wie kann man mit Popup

[bundy]

:coder: Hallo ,wie kann man ein POPUP auf eine Komp. beziehen.
z.b

POPUP bei dbgrid1 dann i:=1
POPUP bei dbgrid2 dann i:=2

wie kann ich dem popup sagen oder abfragen welchen Handel es hat .
:firejump: :firejump: :firejump: :firejump: :firejump: :firejump:

[sakura]

Wenn das Pop "gestartet" wird, kannst Du im Ereignis OnPopup den Sender abfragen.

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  if Sender = StringGrid1 then
    I := 1
  else if Sender = StringGrid2 then
    I := 2
  else
    I := -1;
end;

...:cat:...

[bundy]

Ich habe noch ein Tabsheet wo das grid drinnen liegt.
das funzt nicht mit sender.

[Stanlay Hanks]

Müsste aber doch eigentlich trotzdem gehen. Weil über Sender kann man die Komponente die das Popup aufgerufen hat, ja identifizieren und da isses doch egal, ob die jetz auf nem Tabsheet liegt oder sonst wo.

[oki]

Hi Leute,

nicht, dass ihr in die falsche Richtung lauft. Der Parameter Sender gibt den Sender an der das Ereignes gesendet hat. Somit ist hier der Sender vom Typ TPopupMenu und nicht die Kompo auf der das Menu liegt.

Auf deutsch sagt uns das, habt ihr mehrere Menu's die auf die gleiche Ereignisbehandlungsmethode zeigen, könnt ihr über Sender das Menu ermitteln, welches euch das Ereignis gesendet hat.

Delphi-Quellcode:

 procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  IF TPopupMenu(Sender).Name = Menu1 then ....
  IF TPopupMenu(Sender).Name = Menu2 then ....
end;

Gruß oki

[Stanlay Hanks]

:wall: Danke für die Berichtigung...Ich muss mir angewöhnen, das was ich schreibe auch auszuprobieren. :wall:

[oki]

Hi Stanlay,

kein Streß, als ich eure Beiträge gelesen hab bin ich auch erst mal ins schleudern gekommen und war mir gar nicht mehr sicher was nun richtig ist. Vorallem weil auch noch Sankura als Moderator in diese Kerbe haut. Kenerell kann dieses Ereignis ja "jeder" aufrufen. Dann klappt die Abfrage über TPopupMenu(Sender) natürlich nicht. Generell sollte man natürlich vorher den Sender prüfen von welchem Typ er ist!!!!! :witch:

Denn auch das müßte möglich sein:

Delphi-Quellcode:

PopupMenu1Popup(self);

wobei self jeder möglich Object-Typ sein kann. Hier würde quasi nicht über die rechte Moustaste sondern aus dem Programm heraus zur Laufzeit das Ereignis aufgerufen werden.

Also Vorsicht!!!

Gruß oki