Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
16. Apr 2004
Das dürfte ja nicht das Problem sein:
procedure AddPopMenue(Tablename: String);
var Item: TMenuItem;
begin
Item:= TMenuItem.Create(Form_Main.PopupMenu1);
Item.Caption:= Tablename;
Item.OnClick:= Form_Main.PopMenuOnClick;
Form_Main.PopupMenu1.Items.Add(Item);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
16. Apr 2004
ich war schneller :mrgreen:
@Sharky
ich hab ja nur die Änderung gepostet - PopMenuOnClick stand ja schon bei barnti drin :wink:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
16. Apr 2004
und wie sieht es damit aus?
procedure AddPopMenue(Tablename: String);
var Item: TMenuItem;
begin
Item:= TMenuItem.Create(Form_Main.PopupMenu1);
Item.Caption:= Tablename;
Item.OnClick:= Form_Main.PopMenuOnClick;
Form_Main.PopupMenu1.Items.Add(Item);
end;