Hallo Telefonkabel!
ich würde es vielleicht so machen (Pseudocode):
Delphi-Quellcode:
TTest = class; // forward
TTestThread = class(TThread)
private
fTest: TTest;
protected
procedure Execute; override;
public
constructor Create(Test: TTest);
end;
TTest = class
private
fTestThread: TTestThread;
procedure StartedFromThread;
public
procedure StartTest;
end;
implementation;
procedure TTestThread.Create(Test: TTest);
begin
fTest:= Test;
end;
procedure TTestThread.Execute;
begin
fTest.StartedFromThread;
end;
In der Methode "StartTest" könntest du den Thread
erstellen und ihm dabei das Objekt "TTest" übergeben.
Der Thread kennt dann die Methode "StartedFromThread",
in der du den gewünschten Code platzieren könntest.
Gruß
Pfoto