Hi,
vielen danke funzt.
Nur:
Warum kann ich das Thread nur aus FormCreate erzeugen und starten ?
Durch ein ButtonKlick aus Thread zu starten geht net.
Delphi-Quellcode:
procedure TSelfThread.Execute;
begin
Sleep(200);
showMessage('aus dem thread');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showMessage('aus dem button');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SelfThread := TSelfThread.Create(true); //Thread inaktiv erzeugen
SelfThread.FreeOnTerminate := true; //Thread nach dem Beenden freigeben
SelfThread.Resume; //Thread aktivieren
end;
jeroen