как правильно сделать задержку на выполнение действий?

[gylayko]

программа - тир. есть 3 изображения - одно как фон, оно не меняется, второе и третье должны появляться поочередно. я делаю так:

for i:=1 to 10 do begin
a:=Random(2)+1;
if a=1 then
begin
Image2.Visible:=True;
Timer1.Interval:=5000;
Timer1.Enabled:=True;
end
else
begin
Image3.Visible:=True;
Timer3.Interval:=5000;
Timer3.Enabled:=True;
end;
end;

в результате изображения появляются слишком часто, а мне нужно, чтобы раз в 5 сек. если добавляю sleep появляются оба изображения сразу, а через 5 сек оба исчезают!

[Stilet]

Абсолютно неудачный подход.
Сделай один таймер и храни изображения в ImageList. В отработке таймера меняй изображения.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    ImageList1: TImageList;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 with TTimer(Sender) do begin
  if tag<ImageList1.Count then tag;=tag+1 else tag:=0;
  ImageList1.Draw(Canvas,0,0,tag);
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Tag:=0;
  Timer1.Interval:=3000;
  Timer1.Enabled:=true;
end;

end.

Идея ясна?

[gylayko]

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

Абсолютно неудачный подход.
Сделай один таймер и храни изображения в ImageList. В отработке таймера меняй изображения.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    ImageList1: TImageList;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 with TTimer(Sender) do begin
  if tag<ImageList1.Count then tag;=tag+1 else tag:=0;
  ImageList1.Draw(Canvas,0,0,tag);
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Tag:=0;
  Timer1.Interval:=3000;
  Timer1.Enabled:=true;
end;

end.

Идея ясна?

в ImageList нужны фото одинаковых размеров! а мне нужны разные картинки.

[s-andriano]

Ну так переделайте на разные картинки, но с одним таймером.