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]);
Application.ProcessMessages;
Sleep(2000);
end
end;
Хочу попробовать сделать слайдшоу на дельфи. Принцип такой - в листбокс загружается список файлов для показа, вводится интервал, и начинается показ. Вот код показа картинок:
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;
---
Но почему-то постоянно показывается только последняя картинка из листбокса. Подскажите, плз, в чем я ошибся.
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]);
Application.ProcessMessages;
Sleep(2000);
end
end;
---
а лучше выкинуть цикл и доверить дело таймеру, раз уж и так все в его обработчике происходит :)08.12.04 13:11 Автор: dl <Dmitry Leonov>
[Delphi] Прикольно. На срабатывание таймера у тебя в цикле мгновенно последовательно перегружаются все файлы в TPicture, и ты видишь последний! ;-) Оценка два ;-)07.12.04 08:59 Автор: HandleX <Александр М.> Статус: The Elderman
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
