PopupMenü.Items.OnClick neue Prozedur zuweisen

[himitsu]

Das dürfte ja nicht das Problem sein:

Code:

procedure AddPopMenue(Tablename: String); 
var Item: TMenuItem; 
begin 
  Item:= TMenuItem.Create([color=red]Form_Main.[/color]PopupMenu1); 
  Item.Caption:= Tablename; 
  Item.OnClick:= [color=red]Form_Main.[/color]PopMenuOnClick; 
  [color=red]Form_Main.[/color]PopupMenu1.Items.Add(Item); 
end;

OK, der kleine Fehler wurde behoben