mit dem code unten fülle ich dynamisch ein popupmenü.
ich habe große probleme damit eine ereignisprozedur zur laufzeit
zuzuweisen
mit
Code:
NewItem.OnClick:=button5click;
weise ich allen items die gleiche prozedure zu.
die ereignisse müssen auch dynamisch bleiben,
kann man dafür auch die ereignisse aus einer textdatei hinzuladen?
Code:
procedure TForm1.Button3Click(Sender: TObject);
var NewItem: TMenuItem;
i: integer;
f: textfile;
zeile,s: string;
begin;
AssignFile(f, 'c:\text.txt');
{$I-}
Reset(f); // Datei aus der gelesen wird
{$I+}
if ioResult <> 0 then halt;
zeile := '';
while not eof(f) do
begin
readln(f, zeile);
NewItem := TMenuItem.Create(Self);
NewItem.Caption := (Zeile);
//NewItem.OnClick := GenericReopenClick;
popmnuTrayIcon.Items.Add(NewItem);
end;
closeFile(f);
end;
grüße horst