Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
16. Apr 2004
Aber seine Procedure zum erstellen der Items war nicht bei der TForm deklariert. Darum mein Hinweis :stupid:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
16. Apr 2004
Dann wird der Compiler schimpfen weil er PopMenuOnClick nicht kennt denke ich.
procedure TForm_Main.AddPopMenue(Tablename: String);
var Item: TMenuItem;
begin
Item:= TMenuItem.Create(Form_Main.PopupMenu1);
Item.Caption:= Tablename;
item.OnClick := PopMenuOnClick;
Form_Main.PopupMenu1.Items.Add(Item);