Das "Vorausdenken" in einer Procedure verhindern

[jfheins]

Er denkt nicht voraus, er ist zu schnell

Abhilfe wäre bspw.:

Delphi-Quellcode:

procedure Button1Click(Sender: TObject); 
var x, y: Integer; 
begin 
  for y := 0 to Image1.Height do 
    for x := 0 to Image1.Width do
    begin 
     Image1.Canvas.Pixels[x, y]; 
     Image1.Repaint; // oder so
// vll. noch Application.ProcessMessages
     Sleep(20); // dann isser nicht ganz so schnell
    end;
end;