Also so schwer wie du sagst ist das doch garnicht, oder?
Also ich habe einen Thread:
Delphi-Quellcode:
TMyThread =class(TThread)
private
protected
procedure Execute;override;
public
end;
eine Variable vom Typ TMyThread
MyThread : TMyThread;
und Mit folgender Zeile kann ich das ganze starten:
Delphi-Quellcode:
MyThread := TMyThread.Create(True);
MyThread.Resume;
in Execute steht z.B. folgendes:
Delphi-Quellcode:
procedure TMyThread.Execute;
begin
while not Terminated do
begin
sleep(10);//Damit der Rechner nicht komplett ausgelastet ist
Synchronize(Prozedur)//Prozedur aufrufen
end;
end;
(Bis jetzt war das ein kinderspiel)
Was muss man jetzt noch wissen?
Ach ja man kann noch nen Konstruktor integrieren:
Delphi-Quellcode:
TMyThread =class(TThread)
private
protected
procedure Execute;override;
public
constructor Create(x,y,z : integer);
end;
.
.
.
constructor TMyThread.Create(x,y,z : integer);
begin
inherited Create(True);
end;
Aufruf ist dann folgender:
Delphi-Quellcode:
MyThread := TMyThread.Create(1,2,3);
MyThread.Resume;