Fórum Verificar se uma Thread terminou #596502
18/08/2018
0
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
Curtir tópico
+ 0
Responder
Posts
20/08/2018
Mr. Awnser
procedure TFormCriaBanco.FormShow(Sender: TObject);
var
ThreadBanco: TCriarBancoThread;
begin
ThreadBanco := TCriarBancoThread.Create(False, GaugeCriaBanco, LabelCriaBanco);
ThreadBanco.FreeOnTerminate := True;
if ThreadBanco.FreeOnTerminate then
Close;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)