Zitat von
MikeS:
versuche es doch einmal so:
Delphi-Quellcode:
procedure TForm1.DateiLaden(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
TForm2(ActiveMDIChild).Richedit1.Lines.LoadFromFile(Item1.Caption);
end;
[..] //bekannt
Item1.OnClick := DateiLaden(Sender); //<-
List.Free;
end;
Das ist keine gute Idee denn das was da geladen werden muss ist ja immer unterschiedlich.