Хочу попробовать сделать слайдшоу на дельфи. Принцип такой - в листбокс загружается список файлов для показа, вводится интервал, и начинается показ. Вот код показа картинок:
procedure TForm1.TimerTimer(Sender: TObject);
var
n, a : integer;
begin
n:= ListBox.Items.Count;
for a:=0 to n-1 do
begin
img.Picture.LoadFromFile(ListBox.Items.Strings[a]);
end
end;
---
Но почему-то постоянно показывается только последняя картинка из листбокса. Подскажите, плз, в чем я ошибся.
|