Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.367 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: dynamisches PopUp-Menü

  Alt 31. Jan 2017, 07: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
  Mit Zitat antworten Zitat