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
Function GetStreamContent(S:TStream):String;
Begin
S.Read(Result[1],S.Size);
End;
Sds,
Ricardo César L. Lavor
-Mensagem original-
De: Eliza [mailto:[EMAIL PROTECTED]
Enviada em: quarta-feira, 30 de março de 2005 13:35
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br
2 matches
Mail list logo