Кораблик Опции

[Zigfried]

Доброго времени суток,нужна помощь с задачкой: нужно чтобы кораблик проплыл по форме и дойдя до конца исчез а вместо этого он начинает растягивать форму помогите это исправить пожалуйста,задача прикреплена.

[IUnknown]

В новых версиях Дельфи уже не растягивает. Но вообще попробуй рисовать не все изображение а только ту часть, которая помещается на форму:

begin
   if image2.Left<410 then
   begin
      image2.Visible:=false;
      if image2.Left > 300 then
      begin
         image2.Left:= -200;
         // Здесь не забудь восстановить ширину Image2
      end;
      image2.Left:=image2.Left+10;
      if Image2.Left + Image2.Width > Image1.Left + Image1.Width then
      begin
         Image2.Width := Image1.Left + Image1.Width - Image2.Left;
      end;
      image2.Visible:=true
   end
   else
   begin
      image2.Visible:=false;
      image2.Left:=112;
      // Здесь не забудь восстановить ширину Image2
      timer1.Enabled:=false;
   end;
end;

[Zigfried]

Спасибо большое за помощь
Хотел бы ещё узнать по ходу: я поставил интервал на таймере 30,а прибавляю image2.Left:=image2.Left+1 двинается плавнее но миагет,что не так?

[Zigfried]

Помогите пожалуйста с морганием,я уже всё перепробовал и ничего не получается,завтра сдавать уже надо(

[IUnknown]

Что именно перепробовал? Вот это пробовал:

procedure TForm1.FormCreate(Sender: TObject);
begin
   DoubleBuffered := true; // Добавить вот эту строку

? С этой строкой попробовал откомпилировать на Дельфи 6, никаких морганий не наблюдаю.

[Zigfried]

Спасибо большое=)