Смена картинок по таймеру

← →
clampo © (2004-08-28 23:19) [0]

Привет всем!!! Как сделать так что бы н\р 5 картинок менялись одна за другой,
и это снова повторялось и без могания и торможения

← →
dRake (2004-08-29 01:57) [1]

VAR
ABMP : array [1..5] of TBitmap;
Index : integer;

{...}

Procedure FormCreate;
var i : integer;
s : string;
begin;

for i := 1 to 5 do
begin;
TBMP[i] := TBitmap.Create;

case i of
1: s := "Image1.bmp";
2: s := "Image2.bmp";
{...}
end;

TBMP[i].LoadFromFile(s);
end;

Index := 1;

end;

{...}

procedure Timer1OnTimer;
begin;

inc(Index);
if Index > 5 then Index := 1;

BitBlt(Form1.Canvas.Handle, 10, 10, TBMP[Index].Width,
TBMP[Index].Height, TBMP[Index].Canvas.Handle, 0, 0,
SRCCOPY);

end;

← →
dRake (2004-08-29 02:00) [2]

Блин забыл :)

procedure FormDestroy;
var i : integer;
begin

for i := 1 to 5 do TBMP[i].Free;

end;

Смена картинок по таймеру Найти похожие ветки