Dynamisches Popup » Procedure mit Parametern

[CalganX]

Hi,

Zitat von hibbert:

Das bingt mir jetzt auch nicht wirklich viel

doch, du weißt jetzt, dass es funktioniert und das geklickt Menü-Item bekommst.

Delphi-Quellcode:

procedure TfrmMain.MenuItemClick(Sender: TObject);
begin
  if (Sender is TMenuItem) then begin
    if TMenuItem(Sender).Name = 'miIrgendEinEintrag' then begin
      // tue dies oder jenes, wenn "miIrgendeinEintrag" angeklickt wurde
    end;

    if TMenuItem(Sender) = miIrgendEinEintrag then begin
      // Eine andere Möglichkiet, wenn du noch die Instanz als Variable vorhanden hast
    end;

    case TMenuItem(Sender).Tag of
      0: // blubb
      1: // moep
      // Für den Fall, dass du über die Tag-Eigenschaft das Item bestimmen willst...
    end;
  end;
end;

Das sind nur ein paar Anwendungsbeispiele...

Chris