onclick bei laufzeit-menuitem festlegen

[sniper_w]

Delphi-Quellcode:

//...
  public
    { Public declarations }
    procedure OnMenuItemClick(Sender:TObject);
  end;

procedure TmyForm.FormCreate(Sender: TObject);
var
  NewMenuItem:TMenuItem;
begin
  NewMenuItem := TMenuItem.Create( PopupMenu ); // oder ( Self );
  NewMenuItem.Caption := 'Hallo';
  NewMenuItem.OnClick := OnMenuItemClick;
  PopupMenu.Items.Add(NewMenuItem);
end;

procedure TmyForm.OnMenuItemClick(Sender: TObject);
begin
  Caption := TMenuItem(Sender).Caption;
end;