PopupMenü.Items.OnClick neue Prozedur zuweisen

[Sharky]

Zitat von himitsu:

und wie sieht es damit aus?...

Dann wird der Compiler schimpfen weil er PopMenuOnClick nicht kennt denke ich.

Code:

procedure [color=red]TForm_Main.[/color]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);
end;