перемещение изображения на фоне

[Костян Пират]

описание пробемы: процедура Jump перемещает изображене по фону в одном из 4х направлений (зависит от переменой dir). перемещение роисходит, но почему-то видны только начальное и конечное положение движущейся картинки... промежуточных положений не обозревается... никак не пойму в чем секрет...

const
cl=50;

var
...
  Ox, Oy, dx, dy: integer;
...

procedure TForm1.Jump;
begin
 case dir of
  0:   begin
        dx:=cl;  dy:=0;
       end;
  1:   begin
        dx:=0;   dy:=-cl;
       end;
  2:   begin
        dx:=-cl; dy:=0;
       end;
  3:   begin
        dx:=0;   dy:=cl;
       end;
 end;

 dx:=Ox+dx;
 dy:=Oy+dy;

 while not ((Ox=dx) and (Oy=dy)) do
  begin
    case dir of
     0: Ox:=Ox+5;
     1: Oy:=Oy-5;
     2: Ox:=Ox-5;
     3: Oy:=Oy+5;
    end;

    CopyBuffer;
    sleep(200);
  end;
end;


procedure TForm1.CopyBuffer;
begin
 {очищение буфера}
 Buf.Canvas.FillRect(Rect(0, 0, Buf.Width, Buf.Height));


 {копирование фона в буфер построения изображения}
 Buf.Canvas.CopyRect(Rect(0, 0, Buf.Width, Buf.Height),
              Buf2.Canvas, Rect(0, 0, Buf.Width, Buf.Height));


 obj.Canvas.FillRect(Rect(0, 0, obj.Width, obj.Height));
 Objs.GetBitmap(dir,obj.Picture.Bitmap);
 Buf.Canvas.Draw(x,y,Obj.Picture.Graphic);

 Screen.Canvas.FillRect(Rect(0, 0, Screen.Width, Screen.Height));
 {копирование буфера на экран}
 Screen.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height),
               Buf.Canvas, Rect(0, 0, Screen.Width, Screen.Height));
end;

[DeKot]

Посмотри http://www.programmersforum.ru/showthread.php?t=25669

[Костян Пират]

я просматривал уже, но... мой пример много проще... в чем здесь ошибка, вот что я хотел бы узнать

[mihali4]

Ошибка в непонимании сути работы винды...
Строка
Application.ProcessMessages;
поможет "отцу русской демократии"...

[Костян Пират]

Сообщение от mihali4

Ошибка в непонимании сути работы винды...

это правда
но мы университетов не кончали так что это всё маленькое хобби...

mihali4 спасибо! проблема решена