Hallo,
ich habe eine Popupmenü, zu dem ich zur Laufzeit MenüItems hinzufüge. Jetzt möchte ich jedem Item den Eventhandler
'OnClick' zuweisen. Wird ein Item im PopupMenu geklickt, soll diese Prozedur ausgeführt werden.
Meine Vorgenhensweise:
Delphi-Quellcode:
procedure TForm_Main.FormCreate(Sender: TObject);
begin
PopupMenu1.Items.OnClick:= PopMenuOnClick;
end;
procedure TForm_Main.PopMenuOnClick(Sender: TObject);
begin
Showmessage('Klick!')
end;
procedure AddPopMenue(Tablename: String);
var Item: TMenuItem;
begin
Item:= TMenuItem.Create(Form_Main.PopupMenu1);
Item.Caption:= Tablename;
Form_Main.PopupMenu1.Items.Add(Item);
end;
Wobei 'AddPopMenue' alle Tabellennamen einer
DB zum Popupmenue hinzufügt.
Leider geht es so nicht. Die Prozedur in 'FormCreate' wird zwar zugewiesen, aber beim Klick auf einen PopupmenüItem wird die Prozedur 'PopMenuOnClick' nicht ausgeführt?!
Wo liegt mein Fehler? Habe ich die Prozedur falsch zugewiesen? Kann ich überhaupt jedem Item so diese Prozedur zuweisen?
Danke!