Hallo Whissi,
also ohne deinen Quellcode zu sehen, kann man schlecht sagen wo der Fehler liegt. Ich weiß auch nicht welche Aufgabe der Timer in deinem Projekt hat.
Ich will dir aber anhand eines kleinen Beispiels zeigen, wie du einen Thread in deinem Projekt einsetzen kannst.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
procedure OnThreadTerminate(Sender: TObject);
public
{ Public-Deklarationen }
end;
TMyThread =
class(TThread)
public
procedure Execute;
override;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{--------------------------------------------------------------------------------------------------}
procedure TMyThread.Execute;
begin
Sleep(2000);
end;
{--------------------------------------------------------------------------------------------------}
procedure TForm1.OnThreadTerminate(Sender: TObject);
begin
Screen.Cursor := crDefault;
Button1.Enabled := True;
end;
{--------------------------------------------------------------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
begin
Screen.Cursor := crHourGlass;
Button1.Enabled := False;
with TMyThread.Create(True)
do
begin
FreeOnTerminate := True;
OnTerminate := OnThreadTerminate;
Resume;
end;
end;
{--------------------------------------------------------------------------------------------------}
end.
Beim Klick auf den Button wird dieser deaktiviert und ein neuer Thread wird erstellt.
Beim erstellen wird der Constructor Create mit dem Wert True aufgerufen. So wird der Thread zwar erstellt aber noch nicht ausgeführt.
Jetzt können einige Werte gesetzt werden. Zum Beispiel FreeOnTerminate. Damit du dich nicht selber um die Klassenspeicherverwaltung kümmern musst.
Außerdem kannst du dort auch ein Ereignis setzten, das ausgeführt wird, wenn der Thread mit seiner Arbeit fertig ist.
Erst der Aufruf von Resume führt dann den Thread aus.
Ist der Thread beendet, wird das Ereignis OnThreadTerminate aufgerufen und der Button wird wieder aktiviert.