OnClick vom MenuItem, während der Laufzeit erzeugt, Sender = nil ?

[stho]

Ich erzeuge zur Laufzeit mehrere Items und übernehme diese in ein Popup.
Soweit so gut, das zugewiesene OnClick-Event wird auch aufgerufen, jedoch ist
sender immer nil...
Woran kann das liegen?

P.S.
Es handelt sich hierbei um einen Konsolenanwendung OHNE jegliche Form.
Das Popup wird über das TrayIcon dargestellt.

Delphi-Quellcode:

  aItem            := TMenuItem.Create(nil);
  aItem.Name       := 'Item_Test';
  aItem.Caption    := 'Test';
  aItem.Tag        := 1;
  @aItem.OnClick   := @OnMyClick;
  aPopup.Items.Add(aItem);

---

Delphi-Quellcode:

procedure OnMyClick(Sender: TObject);
begin
  if sender = nil then // HIER springt er immer rein...
    exit;
  
  case TMenuItem(Sender).Tag of
    0: begin  // 

    end;
    1: begin  // 

    end;
    2: begin  // 

    end;
  end;
end;

[DeddyH]

OnClick ist vom Typ TNotifyEvent, also darf es keine reguläre Prozedur, sondern muss eine Methode sein, d.h. zu einer Klasse gehören. Zur Not erstell Dir eine Dummy-Klasse mit dieser Property und weise die dann zu.

[hoika]

Hallo,

da eine Methode immer einen ersten unsichtbaren Parameter hat,
klappt viell.

Delphi-Quellcode:

procedure OnMyClick(Dummy: Pointer; Sender: TObject);

Heiko