Das Problem ist also, dass du irgendwie auf das Form-Objekt zugreifen musst. Ich würds so machen:
Delphi-Quellcode:
TMyThread = class(TThread)
protected
fMyForm: TxxForm; // Muss von extern versorgt werden...
procedure Execute; override;
procedure DoIt; // Die wird vom Execute aufgerufen
public
property MyForm: TxxForm read fMyForm write fMyForm;
end;
procedure TMyThread.DoIt;
// Dieser Code wird im Main-Thread ausgeführt - ist daher nicht parallel
begin
if fMyForm = nil then
Exit;
fMyForm.ListBox1.Items.Add('Juchui');
// Mach sonst noch was...
end;
procedure TMyThread.Execute;
begin
Synchronize(DoIt);
// Ab hier gehts wieder im aktuellen Thread weiter - parallel zu anderen Threads.
//
// Mach was paralleles...
end;
procecure StartThread;
var
hThread: TMyThread;
begin
hThread := TMyThread.Create( True );
// Thread-Settings wie Priority, ...
hThread.MyForm := FrmxxForm;
hThread.Resume;
end;
Bei Threads sollte man nicht direkt aus der Execute auf iregendwelche Controls in Forms zugreifen, da dadurch unerwartete Ereignisse eintreten können. Um das zu umgehen, gibts die Methode Synchronize. Diese bewirkt, dass die im Parameter angegeben Prozedur im Main-Thread des Programms ausgeführt wird.
Vielleicht hilfts dir ja wieter...
Zitat
Baum-Darstellung
