![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() Я на форму при помощу десяти кнопок загружаю столько же картинок. ТEdit`ы для того что бы картинки после загрузки можно было назвать. Хочу сделать слайд шоу из них, но никак не разберусь как можно слайдшоу это реализовать.
![]() Последний раз редактировалось kriv0y, 21.02.2011 в 17:22. |
#2
|
|||
|
|||
![]() Создай массив из путей к файлам, а дальше по таймеру отображай картинки одну за другой. И пара кнопок на запуск и остановку таймера.
Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin if i=10 then i:=0; Inc(i); Image1.Picture.LoadFromFile(pathToImage[i]); end; |
#3
|
|||
|
|||
![]() так у меня пути каждый раз разные, они же не могут быть по порядку
|
#4
|
|||
|
|||
![]() Может мне создать десять кнопок и на каждый клик передовать картинку из одного timage в другой. timage1.picture:=timage2.picture;
|
#5
|
|||
|
|||
![]() Код:
var PathToFile: array [1..10] of string; for i:=1 to 10 do PathToFile[i]:=Edit[i].Text Последний раз редактировалось iGeTT, 21.02.2011 в 20:14. |
#6
|
|||
|
|||
![]() Спасибо за помощь, но что то он красным подчеркивает
|