Welcher ToolButton ruft PopupMenu auf?

[Kroko1999]

Ich habe eine TToolbar mit mehreren Buttons, u.a. zwei die per Style auf tbsDropDown gesetzt werden und beide das gleiche PopupMenu aufrufen. Wie bekomme ich nun heraus,welcher TToolButton der Auslöser ist, denn PopupMenu.PopupComponent liefert nur die Toolbar zurück?

[chrisw]

der Auslöser steht im Object Sender !

with Sender as TToolButton do Showmessage(name)

[Kroko1999]

nein, in diesem Fall steht dort TMenuItem als Sender!

[Legolas]

Hallo Kroko1999,

in dem Ereignis OnPopup des PopupMenu schreibst du:

SenderPopup:=TPopupMenu(Sender).PopupComponent; SenderPopup mu0t du als TObject in deinem Projekt an entsprecher Stelle deklarieren.

Jetzt kannst du z.B. so die TAG Eigenschaft des jeweilihen TToolbutton auswerten:

Delphi-Quellcode:

...
If TToolbutton(SenderPopUp).Tag = 1 then
...

[teebee]

Ein schmutziger Trick:
Frage im OnPopup die aktuelle Mausposition ab und bestimme daraus den gedrückten Button, ist zwar alles andere als elegant, sollte aber gehen.

@Legolas: In PopupComponent steht die ToolBar nicht der ToolButton

Gruß, teebee

[Legolas]

Hi teebee,

ja ich weiß, ein sehr schnutziger Trick.

Es funktioniert aber 100%ig und der Zweck heiligt dochdie mittel, oder?

[teebee]

Zitat von Legolas:

Es funktioniert aber 100%ig und der Zweck heiligt dochdie mittel, oder?

Falls Du Deinen Vorschlag mit PopupComponent meinst, das funktioniert leider nicht, weil in PopupComponent die ToolBar steht und nicht der ToolButton.

Mit schmutzig meinte ich eigentlich meinen Vorschlag

Gruß, teebee

[Legolas]

Hi teebee,

probiere meinen Vorschlag einfach aus, es funktioniert. Zumindest tut es das bei mir... Habe es getestet...

Wer lesen kann ist klar im Vorteil. Dann hätte ich gemerkt das du deinen Trick meinst. Sorry...

[teebee]

Also bei mir gehts nicht...

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
 ShowMessage(PopupMenu1.PopupComponent.Name+' '+(Sender As TComponent).Name+' '+TToolButton((Sender As TPopupMenu).PopupComponent).Name);
end;

Ich komme nicht an den ToolButton heran, auch der Cast zieht nicht (wie sollte er auch, TToolButton hat ja vererbungstechnisch nix mit TToolBar zu tun).

Gruß, teebee

[Ultimator]

Du könntest den Code im ToolButtonClick in eine eigene Funktion auslagern, die als Ergebnis den Namen des ToolButtons zurückgibt, und diese Funktion dann im eigentlichen OnClick auslösen