Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
27. Apr 2004
Ja, hatte es erst falsch verschtanden.
siehe oben, oder so:
Procedure TForm1.gfdgfd1Click(Sender: TObject);
Begin
If TMenuItem(Sender).Parent is TMainMenu Then ...
End;
Notfalls moßt do noch ein paar Ebenen höher gehen (wenn es sich z.B. um ein Untermenü in einem Untermenü handelt)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
27. Apr 2004
Procedure OnClick...(Sender: TObjekt);
Begin
If Sender = MainMenu1Item Then {vom Memü} Else {das andere}
If Sender = PopupMenu1Item Then {ebenfalls das Andere}
End;