Leider -200 Gummipunkte für mich. Ich glaube ich bin zu dämlich dafür die Ableitung aus Beitrag 2 zu nutzen
Delphi-Quellcode:
var TestThread: TTestThread;
procedure TForm1.Button2Click(Sender: TObject);
begin
TestThread:= TestThread.Create;
TestThread.Interval := 60000;
end;
Delphi-Quellcode:
unit Unit3;
interface
uses
System.Classes, System.Classes, System.SyncObjs, uCustomThread, Dialogs;
type
TTestThread =
class(TCustomThread)
// TCustomThread ist die Unit aus Beitrag 2
private
{Private-Deklarationen}
protected
procedure Execute;
override;
end;
implementation
{TTestThread}
procedure TTestThread.Execute;
var
res: TWaitResult;
begin
while not Terminated
do
begin
// Sleep(1000);
res := FEvent.WaitFor(FInterval);
// also z.B. 1000
// An FEvent komme ich nicht dran. An FInterval natürlich auch nicht. Nur die Frage ist wieso.
// if 1 = 2 then
// viel zu tun
// end;
case res
of
wrSignaled:
TThread.Synchronize(
nil,
procedure
begin
showmessage('
Signaled');
end);
wrTimeout:
;
wrAbandoned:
Terminate;
wrError:
{Fehler loggen}
;
end;
end;
end;
end.