Dynamisches Popupmenü erzeugen, OnClick definieren.

[_X_]

Ich benutze folgenden Code um ein Popupmenü zur Laufzeit zu erstellen.

Code: Alles auswählen

procedure load_traymenu();
var I: integer;
    NewTrayItem: TMenuItem;
begin
  TrayMenu.Items.Clear;
   for I:=0 to ItemBox.Count-1 do begin
      NewTrayItem := TMenuItem.Create(self);
      NewTrayItem.Caption := ItemBox.Items[I];
      NewTrayItem.Tag     := I;
      NewTrayItem.OnClick := TrayMenuClick;
   end;
end;

Code: Alles auswählen

NewTrayItem.OnClick := TrayMenuClick;
// Hier meldet der Kompiler aber   
// Error: Wrong number of parameters specified for call to "TrayMenuClick"
// Eigentlich verständlich, aber wenn ich das Selbe im Objektinspektor einstelle funktioniert es ja.
// Was mach ich Falsch?

mfg _X_

[Lord Horazont]

FreePascal will ein @ vor dem Methodennamen, wenn du die Methode einem Event zuweist. Also anstatt deinem Code dann:

Code: Alles auswählen

NewTrayItem.OnClick := @TrayMenuClick;

Gruß Lord Horazont

[_X_]

Danke.
Bei deinem Package Problem kann ich dir leider nicht helfen.

mfg _X_