Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#4

AW: TThread und Sleep

  Alt 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)
  Mit Zitat antworten Zitat