onclick bei laufzeit-menuitem festlegen

[sancho1980]

hallo ihrs
wenn ich ein TMenuItem zur Laufzeit erzeuge

TMI := TMenuItem.Create(self); und eine procedure geschrieben habe, die ausgeführt werden soll, sobald auf dieses TMI geklickt wird, wie erfolgt da die Zuweisung?

Habe gesehen, da gibt's so eine Eigenschaft TMI.OnClick, aber da muss so ein TNotifyEvent zugeordnet werden; komme damit nicht ganz klar...

Danke,

Martin

[BenjaminH]

wenn die zugehörige Prozedur richtig deklariert wurde, reich eigentlich:
TMI.OnClick:=SpecialProcedure;

[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;

[sancho1980]

danke
mir war nicht klar, dass die procedure eine bestimmte signatur braucht!