TMenuItem.OnClick wird nicht ausgelöst

[Neutral General]

Hi,

Ich habe schon im Forum gesucht aber nichts konnte mir helfen.

Habe folgenden Code:

Delphi-Quellcode:

procedure TForm1.Methode;

  procedure PopUpOnClick(Sender: TObject);
  begin
    // Etwas tun
  end;
  
var popup: TPopupMenu;
    met: TMethod;
    i: Integer;
begin
  popup := TPopUpMenu.Create(Self);
  try
    met.Code := @PopUpOnClick;
  
    for i := 0 to List.Count - 1 do
    begin
      popup.Items.Add(TMenuItem.Create(popup));
      met.Data := popup.Items[i];
      popup.Items[i].OnClick := TNotifyEvent(met);
    end;
    popup.Popup(0,0); // Koordinaten egal
    // Popup(0,0) dauert so lange, bis das PopUpmenu weggeklickt wurde oder etwas ausgewählt wurde.
  finally 
    popup.Free;
  end;
end;

Das OnClick Ereignis der MenuItems wird aber nie ausgeführt. Habs auch schon mit ner normalen Methode als TNotifyEvent (OnClick) ausprobiert. Hat aber auch nicht funktioniert...

Gruß
Neutral General

[mkinzler]

Warum verwendest du keine Methode?

[Neutral General]

Zitat:

Zitat von Neutral General

Habs auch schon mit ner normalen Methode als TNotifyEvent (OnClick) ausprobiert. Hat aber auch nicht funktioniert...