Auslösendes Control rausfinden bei TAction

[Phoenix]

Hi,

man, ich roste echt ein.

Man nehme:
Zwei Controls, ein Popumenu, eine ActionList.
Man definiere eine Action und ein PopupmenuItem. Man hänge die Action an das Menuitem und man hänge das PopupMenu an beide Controls.

In der Action.onExecute ist der Sender immer die auslösende TAction.

Auf der Action gibt es ActionControl. Das ist blöderweise das MenuItem.

Wie finde ich jetzt heraus, von welchem Control aus der Menüeintrag gewählt wurde?

AUSSER in 'onPopup' das Control in eine temporäre Variable zu packen, das kann jeder und das ist unschön.

[Hawkeye219]

Hallo Sebastian,

Delphi-Quellcode:

procedure TForm1.Action1Execute (Sender: TObject);
var
  mi : TMenuItem;
  pm : TPopupMenu;
begin
  mi := TAction(Sender).ActionComponent as TMenuItem;
  pm := mi.GetParentMenu as TPopupMenu;
  ShowMessage (pm.PopupComponent.Name);
end;

Das wäre eine weitere Möglichkeit. Aber selbst mit den notwendigen Sicherheitsabfragen ist sie nicht viel schöner als deine Lösung.

Gruß Hawkeye

[CalganX]

Hi,
bist du sicher, dass Sender wirklich das Control enthält? Ich meine mich daran zu erinnern, dass im Sender nur die TAction-Instanz drin steht von der Aktion, die du gerade aufrufst.

Chris

[Phoenix]

boah :shock:

Delphi-Quellcode:

((((Sender as TAction).ActionComponent as TMenuItem).Owner as TPopupMenu).PopupComponent as TControl)

Da wird man ja verrückt. Aber es geht. Und es ist sauberer als Zwischenspeichern.

[Hawkeye219]

Der Owner sollte in der Regel das Formular sein, nimm deshalb besser GetParentMenu statt Owner.

Gruß Hawkeye