|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
AW: dynamisches PopUp-Menü
31. Jan 2017, 08:25
Delphi-Quellcode:
type
TDeinForm = class(TForm)
...
private
procedure DoOnPopupClick(Sender: TObject);
...
end;
...
procedure TDeinForm.DoOnPopupClick(Sender: TObject);
begin
if Sender is TMenuItem then
ShowMessage(TMenuItem(Sender).Caption);
end;
Diese Methode sollte sich zuweisen lassen und kann dann Deinerseits angepasst werden.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|