[Sharky]

Привет всем ,помогите мне решить такую проблемку как сделать таймером автоматическое перелистывание картинок в Timage?? За ранее спасибо

[NCD]

Добрый вечер! Задачка конечно не очень сложная, я как раз этим недавно занимался, целую презентацию сделал! Способов уйма...
Например, если хочешь хранить файлы в самом приложении:
Создай несколько 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;

===========
Это первое, что пришло мне в голову, идей полно, если нужно, обращайся... Хотя я и согласен что мои методы решения проблемы примитивны, и эту проблему нужно наверное решить через массив какой-нибудь, он я даже не знаю, что это такое

[NCD]

Другой вариант, если хочешь выводить картинки из внешней среды:
Создай одну 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;

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

[Sharky]

Это немного нето я бы хотел что бы прога глядела в папку с картинками и по таймеру или по нажатию кнопки перелистывала мне их

[NCD]

Эта задача намного сложнее, в двух словах не объяснишь... Здесь нужно сначало определите программно какие файлы есть в папке, затем выбрать из них картинки, затем составить циклический алгоритм и т.д.
Я сейчас спешу, уходить надо, подожди, может ещё кто-нибудь знает путь попроще, на этом форуме ответы обычно приходят быстро. Удачи...

[<<D>>]

Слайд-шоу. Исходник ниже