Delphi-Quellcode:
TMyThread = class(TThread)
private
protected
procedure Execute;override;
public
constructor Create;
end;
Delphi-Quellcode:
procedure TMyThread.Execute;
begin
// inherited Execute; darf man nicht schreiben :D
end;
constructor TMyThread.Create;
begin
inherited Create(false);
end;
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var T: TMyThread;
h: TObjectlist;
begin
T:= TMyThread.Create;
h:= TObjectList.Create;
h.Add(T)
// h.Add(TMyThread.Create); funktioniert bei mir auch.
end;
Also DAS funktioniert bei mir ohne Probleme.. Also generell scheint es zu gehen...
Vielleicht hast du ja vergessen die Objectliste zu erstellen mit Objectlist := TObjectList.Create;
EDIT: Ich hab grad gelesen das du die Liste anscheinend doch erzeugt hast
