Einfrieren trotz WaitForSingleObject

[TheMiller]

Hallo,

ich habe einen MainThread, eine Container-Klasse und einen Thread. Der Thread wird aus der Containerklasse gestartet und in der Prozedur soll gewartet werden, bis der Thread zu Ende ist. Das versuche ich mittel "WaitForSingleObject" wie folgt:

Delphi-Quellcode:

procedure TContainer.SeekUpdates;
var
  Dt: TDownloadThread;
begin
  Dt:=TDownloadThread.Create(True);
  Dt.FreeOnTerminate:=True;
  Dt.FParent:=Self;
  Dt.SeekUpdates:=True;
  Dt.Resume;
  WaitForSingleObject(Dt.Handle, 1000000);
  ShowMessage('SDD');
end;

Allerdings bleibt das gesamte Programm trotzdem hängen, bis der Thread zu Ende ist. Warum ist das so?

danke