Hi,
ich habe ein Popupmenü welches ich dynamisch erzeuge. Nun soll der User auf ein Item klicken können und eien Procedure mit Parametern soll aufgerufen werden:
Delphi-Quellcode:
procedure tform1.meineproc(pname:string);
begin
showmessage(pname);
end;
{...}
aNewItem : array of TMenuItem;
begin
setlength(aNewItem,11);
for i:= 0 to 10 do
begin
aNewItem[i] := NewItem(listbox1.Items[i], 0, False, True, meineporc(listbox1.Items[i]), 0, 'item'+inttostr(i));
end;
{...}
doch dabei erhalte ich diese Fehlermeldung des Compilers:
Zitat von
Compiler:
[Fehler] Unit1.pas(151): Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'
Wie kann ich nun die Procedure aufrufen und die Parameter übergeben ?
thx
hibbert