Verificar se uma Thread terminou

Delphi

18/08/2018

Olá amigos, um form executa uma Thread no evento OnShow. Gostaria de ao terminar essa Thread fechar o form. Como posso fazer isso? Segue a pequena instrução do OnShow do form:
procedure TFormCriaBanco.FormShow(Sender: TObject);
var
  ThreadBanco: TCriarBancoThread;
begin
  ThreadBanco := TCriarBancoThread.Create(False, GaugeCriaBanco, LabelCriaBanco);
  ThreadBanco.FreeOnTerminate := True;
end;
Alessandro Ribeiro

Alessandro Ribeiro

Curtidas 0

Respostas

Mr. Awnser

Mr. Awnser

18/08/2018

procedure TFormCriaBanco.FormShow(Sender: TObject);
var
  ThreadBanco: TCriarBancoThread;
begin
  ThreadBanco := TCriarBancoThread.Create(False, GaugeCriaBanco, LabelCriaBanco);
  ThreadBanco.FreeOnTerminate := True;
  
  if ThreadBanco.FreeOnTerminate then
     Close;  
end;
GOSTEI 0
POSTAR