DruckenMister WongFacebook

Caption eines TMenuItems ermitteln

System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

Mithilfe des Sender-Parameters gelangen Sie an die Referenz des Menüpunktes, auf den der Anwender geklickt hat. Über Typecasting lässt sich die Caption-Eigenschaft abfragen. Dieses Vorgehen ist besonders bei dynamisch erstellen Menüpunkten vorteilhaft:


procedure TForm1.Meneintrag1Click(Sender: TObject);
begin
  if (Sender is TMenuItem) then
    Label1.Caption:=TMenuItem(Sender).Caption;
end;
 

Dies funktioniert sowohl bei MainMenu-Items als auch bei Popup-Menu-Items.