Hi,
ich habe mehrere Button, bei einem Klick mit der rechten Maustaste öffnet sich ein Popup. Jetzt möchte ich je nach Button verschiedene Aktionen durchführen. Wie kann ich im Eventhandler den Sender überprüfen?
procedure TForm1.Clear1Click(Sender: TObject);
begin
if TEdit(sender) = Button_a then <--- ?
a..
else
b..
end;
Ist bestimmt ganz einfach, aber ich komm nicht drauf.
Danke
Chris
Versuchs mal mit der Tag-Eigenschaft. Ordne jedem Button einen unterschiedlichen Tag zu und frag ihn dann ab.
Beispiel:
if TComponent(Sender).Tag = 1 then
begin
Variante1;
end
else if TComponent(Sender).Tag = 2 then
begin
Variante2;
end;
Gruß
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Was Helmut geschrieben hat funktioniert auch, aber es geht auch anderst:
if (sender as TButton).Caption = 'Button1' then...
du kannst natürlich auch andere Eigenschaften als Caption verwenden, da müsste eigentlich alles gehn. das AS bedeutet Delphi soll annehmen der Sender sei ein TButton. Soll's ein BitBtn sein muss es dann halt heissen
if (sender as TBitBtn).caption =...
Ist sender kein solches Objekt gibt's ne Exception. Du kannst aber vorher per
if (sender is TBitBtn) then...
prüfen, ob's ein solches Objekt ist und darauf reagieren...
Timo
Erstmal großes Lob für die schnelle Hilfe. Leider ist Sender vom Typ MenuItem, wie ich herausgefunden habe. Das ist natürlich bei allen Buttons gleich. Deshalb werde ich das Popupmenu kopieren und ziiiiiemlich viele Eventhandler schreiben. :(
Danke trotzdem! Chris
Tja, jetzt wird mir langsam klar, was Du eigentlich machen willst... Stimmt es, dass Du auf mehreren Buttons das gleiche Menü einblenden willst, aber je nachdem welcher Button es war in den Menüpunkten verschiedene Aktionen auslösen?
Das geht z.B. mit folgendem Trick ganz einfach:
Wird das Menü geöffnet erhält es als Sender den Button. Wenn Du den irgendwie speicherst, z.B. in einer private-Variablen im Formular oder sonstwo (kannst ein Popup-Menu-Abkömmling schreiben, der das automatsich macht) kannst Du bei einem Menüaufruf darauf zurückgreifen!
Timo
Hi Timo,
hmm..das Problem hast du richtig erkannt :)
Allerdings kann man im OnPopup-Event schon nicht mehr auf die Button zugreifen. Aber die Idee ist nicht schlecht. Ich werde jetzt solange basteln, bis es funktioniert! Chris
Allerdings kann man im OnPopup-Event schon nicht mehr auf die
Button zugreifen.
Hi Chrissi,
das stimmt. Angenommen Du hast vier Buttons (Button1 ... Button4) und ein Popupmenü (PopupMenu1234). Weil zu jedem Button das gleiche PopupMenü, nämlich PopupMenu1234 erscheinen soll, hast Du das PopupMenu-Property jedes Buttons im Objektinspektor auf "PopupMenu1234" gesetzt. Tatsache ist nun, daß in dem "OnPopup"-Event von PopupMenu1234 als "Sender" nicht etwa der jeweilige Button erscheint, sondern bloß das jeweilige PopupMenü, in diesem Fall also PopupMenu1234. Du willst aber wissen, von welchem der vier Buttons das PopupMenü aufgerufen wurde. Dieses Problem kannst Du ganz simpel lösen, und zwar so.
1.: Deklariere im Formular eine neue TObject-Variable, z. B. "PMCallObj: TObject" (gehört in den PRIVATE-Teil). 2.: Selektiere alle vier Buttons gleichzeitig, und erzeuge den Eventhandler für das "OnMouseDown"-Ereignis. In die MouseDown-Prozedur schreibst Du eine einzige kleine aber feine Zeile, und zwar "PMCallObj := Sender". Was auch immer der "Sender" ist – er wird erstmal "dauerhaft" abgespeichert und steht dadurch für eine Abfrage im OnPopup-Event zur Verfügung.
Das war's schon. Du kannst jetzt innerhalb des OnPopup-Events den Button einfach anhand der PMCallObj-Variable identifizieren:
IF PMCallObj IS TButton THEN begin IF TButton(PMCallObj)=Button1 THEN ... IF TButton(PMCallObj)=Button2 THEN ... IF TButton(PMCallObj)=Button3 THEN ... IF TButton(PMCallObj)=Button4 THEN ... end;
IF PMCallObj IS TComponent THEN
begin
CASE TComponent(PMCallObj).Tag OF
1: ...; { PopupMenü wurde von Button 1 aus aufgerufen }
2: ...; { PopupMenü wurde von Button 2 aus aufgerufen }
3: ...; { PopupMenü wurde von Button 3 aus aufgerufen }
4: ...; { PopupMenü wurde von Button 4 aus aufgerufen }
END
end
IF PMCallObj IS TComponent THEN
begin
CASE TComponent(PMCallObj).Tag OF
1: ...; { PopupMenü wurde von Button 1 aus aufgerufen }
2: ...; { PopupMenü wurde von Button 2 aus aufgerufen }
3: ...; { PopupMenü wurde von Button 3 aus aufgerufen }
4: ...; { PopupMenü wurde von Button 4 aus aufgerufen }
5: ...; { PopupMenü wurde von ChrissiImage aus a. }
END
end