Da dort Application.ProcessMessages schon drin ist, sollte alles passen. Ich habe es gerade mit der aktuellen Community Edition getestet mit:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:
| procedure Kurve(Image: TImage); var i: Integer; Target: TCanvas; begin Target := Image.Canvas; Target.MoveTo(0, 0); for i := 0 to 100 do begin Target.LineTo(i * 5, i * 3); Application.ProcessMessages; end; end;
procedure TForm142.Button1Click(Sender: TObject); begin Kurve(Image1); end; |
Ich kann die Linie beim Debuggen normal sehen wie sie immer länger wird.