#stahli Was meinst Du mit Deinem Hinweis "Im Create kannst Du ein Label übergeben und in fLabel speichern (Constructor entsprechend überschreiben)."
Damit kann ich nichts anfangen.
Setze ich den ganzen Prozess so wie bei mir geschrieben mit
Delphi-Quellcode:
procedure TForm1.StartThreadBtnClick(Sender: TObject);
var
Thread: TheThread;
I: integer;
begin
try
Thread := TheThread.Create(True);
Thread.FreeOnTerminate := true;
Thread.Start;
Thread.ShutdownThread;
except
on E:
Exception do
begin
MessageDlg(E.
Message, mtError, [mbOK], -1);
end;
end;
end;
in Gang?
Schreibe ich die Thread-Class um in:
Delphi-Quellcode:
type
TheThread = class(TThread)
private
fLabel : TLabel;
public
procedure Execute; override;
property Labelcount : TLabel read FLabel write FLabel;
end;
Ich bin weiterhin ratlos.
Das mit der Synchronisierung der einzelnen Threads glaube ich verstanden zu haben, doch wie es nun praktisch realisiert wird, da scheitert es.