Смена изображения по времени

Posted by micher under Delphi

По концу таймера должно меняться изображение на одно, затем на второе, затем на третье. Как реализовать?

Stilet



procedure TForm3.Timer1Timer(Sender: TObject);

begin

if TTimer(Sender).tag=3 then TTimer(Sender).tag=1

else TTimer(Sender).tag:=TTimer(Sender).tag+1;

image1.Picture.loadfromfile('E:\проги на делфи\тест\биг'+IntToStr(TTimer(Sender).tag)+'_1.bmp');

end;

Пост написан при поддержке «Авторегион» — лучший выбор автокранов.

Автокран — грузоподъемная машина, предназначенная для погрузочно-разгрузочных и строительных работ. Применяемые шасси серийного (массового) производства КАМАЗ, МАЗ, УРАЛ, МЗКТ и БАЗ позволяют использовать автокраны на рассредоточенных объектах. В зависимости от выбранного шасси (транспортное или вездеход), данная техника может использоваться в любых дорожных условиях, в том числе в условиях бездорожья. Простота эксплуатации, маневренность, ремонтопригодность — неоспоримые преимущества автокранов.

тема на форуме

Последние записи

made in programmersforum 4

Смена изображения по времени

Похожие статьи