облако+движение+дождь(Delphi)

[prog1995]

Дага задача .По форме плывет облако ,на середине останавливается, из облака идет дождь.Облако уплывает .
Т.к я еще новичок - возникли проблемы с реализацией подчёркнутого текста . Прошу помощи в доведении до ума программы. Мой наработки.:

[DELPHI]unit anim;

interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
const
scr_width = 640;
scr_height = 480;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    procedure Timer1Timer(Sender: TObject);
      private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 
  x,y,x1,y1:integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin  
    Image3.Visible := False ;
    x:=x+2;
    if x>scr_width+image2.Width then x:=-image2.Width;
    image2.Left:=x;
       begin
       if x = 280 then timer1.Enabled:=false
       end ;
         begin
         if  timer1.Enabled=false then  Image3.Visible:=True
         end;
end; 
end.[/DELPHI]

[Dvoishnik]

сделано криво но пока не кто ничего лучше не предложил
держи
ДОЖДИК.rar

[prog1995]

Спасибо,конечно,но это у меня есть - проблема в том : как Облако уплывает сделать это после остановки.

[Dvoishnik]

дайте ка ваш проект.

[prog1995]

Проект не влезает,но вот файлы bmp (дождь,фон,облако) и код

PHP код:

unit anim;

interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
const
scr_width = 640;
scr_height = 480;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    procedure Timer1Timer(Sender: TObject);
      private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 
  x,y,x1,y1:integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin  
    Image3.Visible := False ;
    x:=x+2;
    if x>scr_width+image2.Width then x:=-image2.Width;
    image2.Left:=x;
       begin
       if x = 280 then timer1.Enabled:=false
       end ;
         begin
         if  timer1.Enabled=false then  Image3.Visible:=True
         end;
end; 
end. 


[phomm]

Я предложу получше, а товарищу ДвоЕЧнику - заслуженная двойка.
Суть:
объявляем структуру из полей - начальная координата х, начальная координата у, текущая х и текущая у, конечная х и конечная у (у-и можно опустить, если не предполагается движение по вертикали), количество тиков времени на выполнение движения(либо в секундах указывать), создание дождя (булевый флаг), по желанию ещё какие либо поля (можно, например, цвет или размер менять).
Потом создаём массив (можно константный, заполнить сразу в коде, или как переменную с заполнением на старте программы, или, что даже лучше, с долей участия пользователя) из этих записей, где указываем, что плывёт из такой точки в такую-то столько-то времени, когда надо делает дождь, когда надо стоит (время есть а разности координат нет). И заводим переменную количества тиков и текущей фазы.
Потом в таймере производим отсчёт тиков (с учётом интервала таймера получим и время в секундах), и для текущей фазы проверяем если она она закончилась(достигнуто время длительности фазы), то переходим к следующей фазе (обнулив переменную тиков, делая отсчёт времени для новой фазы с нуля, и задав ткущие координаты фазы равные начальным), если ещё не закончилась, двигаем по координатам (приращение координат рассчитать как вся разность (межд конечной и начальной) делить на количество тиков, и соответсвенно меняем текущие координаты, если надо создаём дождик (в координатах, соответствующих текущим), в конце всего расчёта меняем координаты имейджей на нужные, и показываем их.
Этот подход позволит сделать регулировку анимаций, даст возможность делать паузы, перезапуск анимации и прочее.
Реализовать же это немногим сложнее, чем та лапша из ифов, что вы, граждане, тут обсуждаете.

[TaLadno]

MyRepoForTests.zip
Оно наверное и не надо никому уже нафиг, но мож какая-нить студентка лет через 20 скачает и посмотрит как убого кодили в 2016-м