Тема: СлайдШоу
Показать сообщение отдельно
  #3  
Старый 05.01.2008, 19:46
Аватар для NCD
NCD NCD вне форума
Новичок
 
Регистрация: 31.12.2007
Адрес: РОССИЯ
Сообщения: 53
Репутация: 10
По умолчанию Решение 2...

Другой вариант, если хочешь выводить картинки из внешней среды:
Создай одну TImage (Image1), оставь её без картинки, и сделай её Visible = true; а файлы с картинками помести в одну папку с приложением. Следующий этап: Создай таймер, задай Interval между картинками (1000 = 1 сек) и вставь В процедуру OnTimer следующее:

var n: integer; {В начало программы}
n:=1; {В процедуру создания программы (OnCreate)}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
{А здесь немножко другое}
if n = 1 then Image1.Picture.LoadFromFile('mypic1.bmp');
if n = 2 then Image1.Picture.LoadFromFile('mypic2.bmp');
if n = 3 then Image1.Picture.LoadFromFile('mypic3.bmp');
{И так сколько тебе нужно}
n:=n+1;
end;

=======================
Хотя должен педупредить, что всё написанное мной абсолютно безграмотно, и учителя за это не похвалят, а для себя в принципе можно
Есть другие идеи, но описывать их очень долго.
==================
Удачи...
Ответить с цитированием