Hallo,
habe folgendes Problem :
Ich möchte aus einem Formular heraus einen oder mehere Threads erzeugen !
Diesen Thread möchte ich Werte und Elemente aus meinem Formular übergeben und anschließend wieder
zuweisen !
Mein Ansatz war nun folgender :
Ich habe eine neue Klasse erzeugt welche von Thread abgeleitet ist
Delphi-Quellcode:
Thread_Auswertung = class(TThread)
Label1 : TLabel;
IBDatabase_fenster : TIBDatabase;
IBTransaction1 : TIBTransaction;
IBQuery1 : TIBQuery;
private
{ Private-Deklarationen }
public
constructor Create(CreateSuspended: Boolean ;Label_uebegabe : TLabel;IBDatabase1: TIBDatabase);overload;
protected
procedure Execute; override;
end;
Jetzt wollte ich den Konstruktor implementieren :
Delphi-Quellcode:
constructor TThread.Create(CreateSuspended: Boolean ;Label_uebegabe : TLabel;IBDatabase1: TIBDatabase);
var
Flags: DWORD;
begin
inherited Create;
AddThread;
FSuspended := CreateSuspended;
Flags := 0;
if CreateSuspended then Flags := CREATE_SUSPENDED;
FHandle := BeginThread(nil, 0, @ThreadProc, Pointer(Self), Flags, FThreadID);
end;
Mein Problem ist nun folgendes ... er kann die Prrozeduren addThread , FSuspended usw. nicht finden (Undefinierter Bezeichner) !