Você deve usar o synchronize, pois alguns componentes da VCL não são
Thread-Safe. Isso explica o travamento da interface.
Exemplo:
TMyThread = class(TThread)
private
FForm: TForm;
protected
procedure Execute; override;
public
constructor Create(AForm:TForm);
end;
constructor TMyThread.Create(AForm:TForm);
begin
inherited Create(False);
FForm := AForm;
end;
procedure TMyThread.Execute;
begin
while not Terminated do
begin
Synchronize(FForm.Metodo);
Sleep(100);
end;
end;
[]'s
Ricardo César L. Lavor
Rodrigo Schiavo escreveu:
>Amigos, fiz uma Thread simples de exemplo aqui porém ela esta travando a
>interface da aplicação principal enquanto a Thread estiver em execução,
>se eu enviar os arquivos em PVT alguém poderia dar uma olhada e ver se
>descobre onde estou errando por favor?
>
>[ ]'s Rodrigo
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
