onClick i runtime

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    procedure menuclick(sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
m: tmenuitem;
begin
m := newitem('Exit',0,false,true,menuclick,0,'exit');
popupmenu1.Items.Add(m);
end;

procedure tform1.menuclick(Sender: TObject);
begin
showmessage('exit');
end;

end.


kan også sagtens tilføjes til en MainMenu

kan man tilføje paramenter til menuclick altså fx menuclick(Section: string;)

det ved jeg ikke hvordan man gør

nix, mysite, den procedure du sætter på som onClick event SKAL have den fast opbygning for en tnotifyevent, altså kun sender : tobject som parameter

kan man så tilføje en procedure runtime?

mener du, oprette en procedure i runtime??

ja