Hallo und Willkommen Florian,
vielleicht hilft dir das hier schon weiter:
Delphi-Quellcode:
var
MenuItem: TMenuItem;
begin
MenuItem:= TMenuItem.Create(Self);
MenuItem.Caption := 'Titel des Menüs';
// Dem Tag eine eindeutige ID zuweisen
MenuItem.Tag:= 1;
// Hier das Event zuweisen - es muss die selben Parameter haben wie von OnClick erwartet, (Sender: TObject)
MenuItem.OnClick := ClickEvent
// Den erstellten Menüeintrag einem Elternmenü zuweisen
ParentMenu.Add(MenuItem);
end;
Um das gedrückte Item eindeutig zu identifieren, kannst du im
OnClick-Event den Tag auslesen, etwa so:
Delphi-Quellcode:
procedure ClickEvent(Sender: TObject);
begin
case TMenuItem(Sender).Tag of
1: ShowMessage('Programm 1');
end;
end;
Gruß
Pfoto