|
#1
|
||||
|
||||
СлайдШоу
Привет всем ,помогите мне решить такую проблемку как сделать таймером автоматическое перелистывание картинок в Timage?? За ранее спасибо
|
#2
|
||||
|
||||
Решение...
Добрый вечер! Задачка конечно не очень сложная, я как раз этим недавно занимался, целую презентацию сделал! Способов уйма...
Например, если хочешь хранить файлы в самом приложении: Создай несколько TImage (Image1[2,3,4]), сразу засунь в них картинки, и сделай их Visible = false. Следующий этап: Создай таймер, задай Interval между картинками (1000 = 1 сек) и вставь В процедуру OnTimer следующее: var n: integer; {В начало программы} n:=1; {В процедуру создания программы (OnCreate)} procedure TForm1.Timer1Timer(Sender: TObject); begin if n = 1 then Image1.Visible := true; if n = 2 then Image2.Visible := true; if n = 3 then Image3.Visible := true; {И так сколько тебе нужно} n:=n+1; end; =========== Это первое, что пришло мне в голову, идей полно, если нужно, обращайся... Хотя я и согласен что мои методы решения проблемы примитивны, и эту проблему нужно наверное решить через массив какой-нибудь, он я даже не знаю, что это такое |
#3
|
||||
|
||||
Решение 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; ======================= Хотя должен педупредить, что всё написанное мной абсолютно безграмотно, и учителя за это не похвалят, а для себя в принципе можно Есть другие идеи, но описывать их очень долго. ================== Удачи... |
#4
|
||||
|
||||
Это немного нето я бы хотел что бы прога глядела в папку с картинками и по таймеру или по нажатию кнопки перелистывала мне их
|
#5
|
||||
|
||||
Re
Эта задача намного сложнее, в двух словах не объяснишь... Здесь нужно сначало определите программно какие файлы есть в папке, затем выбрать из них картинки, затем составить циклический алгоритм и т.д.
Я сейчас спешу, уходить надо, подожди, может ещё кто-нибудь знает путь попроще, на этом форуме ответы обычно приходят быстро. Удачи... |
#6
|
||||
|
||||
Написал исходник специально для Sharky
Слайд-шоу. Исходник ниже
Кому я должен - всем прощаю!!!! |