popup menü bei label klick!

[Nicodius]

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