Hallo,
ich habe eine Funktion bei deren Abarbeitung das ganze Programm hängt. Nun wollte ich diese in einen Thread auslagern. Das Problem ist, das ich in der Funktion auf die Listboxen der Form zugreifen muss. Ich weiß nicht wie ich das machen kann.
Ich habe folgenden Codeschnipsel bei mir gefunden, nur kann ich damit wie gesagt nicht auf die Komponenten der Form zugreifen:
Delphi-Quellcode:
type
TMyThread = class(TThread)
protected
procedure Execute; override;
end;
procedure TMyThread.Execute;
begin
//Mach irgendwas
end;
procedure StartThread;
var
MyThread: TMyThread;
begin
MyThread:=TMyThread.Create(true);
MyThread.Priority:=tpLower;
MyThread.FreeOnTerminate:=true;
MyThread.Resume;
end;
Thx Salomon