Delphi-Quellcode:
procedure MyPopOnClick(Sender : TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var MyItem : TMenuItem;
begin
MyItem := TMenuItem.Create(Popupmenu1);
MyItem.Caption := 'Test';
MyItem.OnClick := MyPopOnClick;
Popupmenu1.Items.Add(MyItem);
end;
procedure TForm1.MyPopOnClick(Sender: TObject);
begin
Showmessage('Hallo');
end;
ddas sollte dir helfen
so kannst du beliebig viele hinzufügen!
---> das OnClick wird durch das
procedure TForm1.MyPopOnClick(Sender: TObject);
bestimmt!
hättest du n bisschen in der CodeLib gestöbert .. ich hab so was ähnliches mit Stringlisten schonmal getutort
