Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[Delphi] Слайдшоу. Легко исправить. :) 08.12.04 12:25 Число просмотров: 4523
Автор: Kerk Статус: Незарегистрированный пользователь
|
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;
---
|
|
|