Glenn
----------
- Code: Select all
procedure TfrmDemo.FormShow(Sender: TObject);
begin
n:=0;
ShowNextImage;
end;
procedure TfrmDemo.ShowNextImage;
begin
inc(n);
if n=13 then n:=1;
PicShow1.Picture.Assign(nil);
case n of
1: PicShow1.Picture.Assign(TopImage1.Picture);
2: PicShow1.Picture.Assign(TopImage2.Picture);
3: PicShow1.Picture.Assign(TopImage3.Picture);
4: PicShow1.Picture.Assign(TopImage4.Picture);
5: PicShow1.Picture.Assign(TopImage5.Picture);
6: PicShow1.Picture.Assign(TopImage6.Picture);
7: PicShow1.Picture.Assign(TopImage7.Picture);
8: PicShow1.Picture.Assign(TopImage8.Picture);
9: PicShow1.Picture.Assign(TopImage9.Picture);
10: PicShow1.Picture.Assign(TopImage10.Picture);
11: PicShow1.Picture.Assign(TopImage11.Picture);
12: PicShow1.Picture.Assign(TopImage12.Picture);
end;
PicShow1.Execute;
end;
procedure TfrmDemo.Timer1Timer(Sender: TObject);
begin
if not PicShow1.Busy then
ShowNextImage;
end;