Delphi-Quellcode:
class TTest =
class(TThread)
public
a: integer;
[...]
end;
implementation
procedure TTest.Execute;
begin
try
a := 0;
while (a < 100)
do
begin
inc(a);
synchronize(machsFit);
sleep(50);
end;
except
on e:
exception do begin
end;
end;
end;
procedure TTest.machsFit;
begin
form1.memo1.lines.add(inttostr(a));
end;
procedure TForm1.Button1Click(Sender: TObject);
var wf : DWORD;
begin
Thread1 := TTest.Create(True);
Thread1.FreeOnTerminate := True;
Thread1.Resume;
end;
So (ungefähr, ungetestet) müsste es ordentlich sein. Wenn du in deinem Test unbedingt ein Sleep möchtest, erstelle im Thread einfach eine Datei, drück den Button und guck schnell nach (innerhalb der 5 Sleep Sekunden) ob die Datei da ist...