Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.02.2011, 17:06
kriv0y kriv0y вне форума
Новичок
 
Регистрация: 20.02.2011
Адрес: Луганжелес
Сообщения: 60
Версия Delphi: 7.
Репутация: 10
По умолчанию Слайдшоу из картинок загруженных на форму

Я на форму при помощу десяти кнопок загружаю столько же картинок. ТEdit`ы для того что бы картинки после загрузки можно было назвать. Хочу сделать слайд шоу из них, но никак не разберусь как можно слайдшоу это реализовать.


Последний раз редактировалось kriv0y, 21.02.2011 в 17:22.
Ответить с цитированием
  #2  
Старый 21.02.2011, 19:11
iGeTT iGeTT вне форума
Прохожий
 
Регистрация: 23.12.2010
Адрес: Moscow
Сообщения: 38
Версия Delphi: 7 Lite
Репутация: 10
По умолчанию

Создай массив из путей к файлам, а дальше по таймеру отображай картинки одну за другой. И пара кнопок на запуск и остановку таймера.
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if i=10 then i:=0;
  Inc(i);
  Image1.Picture.LoadFromFile(pathToImage[i]);
end;
Ответить с цитированием
  #3  
Старый 21.02.2011, 19:57
kriv0y kriv0y вне форума
Новичок
 
Регистрация: 20.02.2011
Адрес: Луганжелес
Сообщения: 60
Версия Delphi: 7.
Репутация: 10
По умолчанию

так у меня пути каждый раз разные, они же не могут быть по порядку
Ответить с цитированием
  #4  
Старый 21.02.2011, 20:00
kriv0y kriv0y вне форума
Новичок
 
Регистрация: 20.02.2011
Адрес: Луганжелес
Сообщения: 60
Версия Delphi: 7.
Репутация: 10
По умолчанию

Может мне создать десять кнопок и на каждый клик передовать картинку из одного timage в другой. timage1.picture:=timage2.picture;
Ответить с цитированием
  #5  
Старый 21.02.2011, 20:04
iGeTT iGeTT вне форума
Прохожий
 
Регистрация: 23.12.2010
Адрес: Moscow
Сообщения: 38
Версия Delphi: 7 Lite
Репутация: 10
По умолчанию

Код:
var PathToFile: array [1..10] of string;
for i:=1 to 10 do
  PathToFile[i]:=Edit[i].Text
P.S. Поправил*

Последний раз редактировалось iGeTT, 21.02.2011 в 20:14.
Ответить с цитированием
  #6  
Старый 21.02.2011, 20:30
kriv0y kriv0y вне форума
Новичок
 
Регистрация: 20.02.2011
Адрес: Луганжелес
Сообщения: 60
Версия Delphi: 7.
Репутация: 10
По умолчанию

Спасибо за помощь, но что то он красным подчеркивает
Ответить с цитированием
Ответ


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:08.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025