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;