Thread
Delphi-Quellcode:
constructor TThread.Create(aList: TStringList; aFormxyz: TFormxyz );
begin
inherited Create (false) ;
FreeOnTerminate:= True;
FResultstringlist:= TStringList.Create;
FList:= TStringList.Create;
FList.Assign(aList);
FFormxyz:= aFormxyz;
end;
procedure TThread.ResultThread;
begin
FFormxyz.SetThreadResult(FResultstringlist);
end;
In der per Button erzeugten Form
LThread:= TThread.Create(LList,Formxyz);
und es wird wie vorher die falsche Form angesprochen...........
@SirRufo
Die FormXYZ wird ja x Fach erzeugt als LFormxyz mit unterschiedlichen Parametern.
und bleibt erhalten, bis die Ergebnisse des/der Threads ausgewertet sind.
Allerdings schreibt der Thread nicht das Ergebnis in LFormxyz(x) (die den Tread gestartet hat ) sondern in die "Grund-Formxyz"