Hallo,
in einem Thread erstelle ich folgendermaßen Komponenten:
Delphi-Quellcode:
for i:=0 to length(covers)-1 do begin
covers[i].chooseImage := TImage.Create(frmDlCover.scbCovers);
covers[i].chooseRadio := TRadioButton.Create(frmDlCover.scbCovers);
fileStream := TFileStream.Create('data/tmp' + IntToStr(i) + '.jpg', fmCreate or fmShareDenyWrite);
frmDlCover.idHttp.Get(covers[i].smallURL,fileStream);
fileStream.Free;
covers[i].chooseImage.Picture.LoadFromFile('data/tmp' + IntToStr(i) + '.jpg');
covers[i].chooseImage.Top := ((row-1)*75)+(row*10);
covers[i].chooseImage.Left := ((col-1)*75)+(col*10);
covers[i].chooseRadio.Top := covers[i].chooseImage.Top+76;
covers[i].chooseRadio.Left := covers[i].chooseImage.Left+32;
covers[i].chooseImage.Visible := true;
covers[i].chooseRadio.Visible := true;
covers[i].chooseImage.Parent := frmDlCover;
covers[i].chooseRadio.Parent := frmDlCover;
end;
Durch Ausprobieren habe ich herausgefunden, dass der Fehler "Error 1400. Ungültiges Fensterhandle" beim Schließen des Programmes von den letzten beiden Zeilen (die mit .Parent := ...) ausgelöst wird.
Tja... ich frage mich nun, warum
Irgendwie müssen diese ja bewirken, dass der Thread nicht geschlossen wird?!
Wäre dankbar, wenn mir jemand heöfen könnte
Nutze das Thread-Objekt... (nur so nebenbei)