Zitat von
Luckie:
Da du beide Aktionen in der Methode Synchronize des Threads ausfühsrt, bringt dir der Thread nichts, dann kannst du es auch gleich im Hauptthread machen.
Ist ja auch nur n' Beispiel gewesen ...
Denken wir uns statt der obigen folgende execute-Methode:
Delphi-Quellcode:
procedure TPainter.Execute;
begin
synchronize (VCL_create);
while not terminated do
begin
Bitmap.Canvas.Pixels[random(50), random(50)] := clBlack;
end;
synchronize (VCL_Free);
end;
Sie funktioniert zumindest bei mir ... (glaube ich
)