Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: TThread und Sleep
2. Feb 2011, 22:53
die Zeile
T.Execute;
gehört da nicht rein.
Der Thread selbst läuft ins Execute, wenn Du es aus der Haupanwendung aufrufst steht diese....
Beispiel:
Delphi-Quellcode:
procedure TThread1.execute;
begin
Showmessage('vor Sleep');
Sleep(15000);
Showmessage('nach Sleep');
end;
procedure TForm1.button1Click(Sender: TObject);
var T : TThread1;
begin
T := TThread1.Create(false);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Showmessage('Hallo')
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|