Apropos WaitFor. Darf ich mich mal kurz einklinken? Kann man das auch in den destructor schreiben oder ist es da schon zu spät?
Delphi-Quellcode:
constructor TFindSnapPointsThread.Create(List: TGraphicList);
begin
inherited Create(true);
FreeOnTerminate := true;
FFindSnapPoints := TFindSnapPoints.Create;
FList := List
end;
destructor TFindSnapPointsThread.Destroy;
begin
WaitFor;
FFindSnapPoints.Free;
inherited Destroy;
end;
procedure TFindSnapPointsThread.Terminate;
begin
FFindSnapPoints.Cancel := true;
inherited Terminate;
end;