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

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

zusammenfalten · markieren

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;

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