Dynamische Button vs. dynamisches Popup

[BorB]

Hallo,

ich lasse mir in meiner Form aus einer Textdatei eine variable Anzahl an Buttons erzeugen, denen ich eine Onclick-Ereignis zuordne:

Code:

procedure TForm1.BitBtnClick(Sender: TObject);
  var i:integer;
begin
   for i:=0 to current do
     if sender = TButton(FindComponent('MyOwnButton' + IntToStr(i))) then
     Begin
     //mach dies und das..
     End;
end;

Das funktioniert auch sehr schön.

Im eigentlich "Create" der Buttons weise ich den Buttons noch das gleiche PopUpMenu zu.

Code:

   MyButtons.name := 'MyOwnButton'+inttostr(RechnerIndex);
    MyButtons.OnClick := Form1.BitBtnClick;
    MyButtons.PopupMenu := Form1.ButtonMenu;

Jetzt will ich auf dieses Popupmenu je nach gedrücktem Button reagieren.
Woher weiß ich, welcher Button das Menu "aufgerufen" hat, da ja der Sender in der Ereignisroutine des PopUpMenu ein "Menus" ist?

Da funktioniert die Abfrage per .... "if Sender = TButton.... ja nicht.

Ich stehe irgendwie auf dem Schlauch.

EDIT: beholfen habe ich mich nem kleinen "Trick": Ich verwende nun das Ereignis

Code:

OnMouseEnter

der Buttons um diese zu identifizieren. Aber das muss doch auch anders gehen?!?

[grenzgaenger]

Schau dir mal die TAG Eigenschaft an. Die ist in jeder Komponente enthalten und genau für solche Fälle gedacht.

<HTH> GG

[BorB]

Danke erstmal,

aber ich habs mit der Tag nicht hinbekommen, da die ja auch immer wieder dynamisch bleibt.
Ich lasse es jetzt im OnMouseEnter so stehen.
Das ist wohl die einfachste Variante.

[Elias Zurschmiede]

Dazu gibt es die TPopupMenu.PopupComponent Eigenschaft

Siehe OH:

Mit Hilfe von PopupComponent lässt sich feststellen, welches Steuerelement das Popup-Menü aktuell benutzt. In Anwendungen, in denen ein Popup-Menü von mehreren Steuerelementen gemeinsam genutzt wird, kann mit PopupComponent ermittelt werden, welches Steuerelement das Menü angezeigt hat.

Durch Setzen von PopupComponent können Sie ein Steuerelement mit dem Popup-Menü verbinden, bevor dieses im Programmcode durch einen Aufruf der Methode Popup aktiviert wird. 

[BorB]

Danke,

werde mir das anschauen.