• Registered: 2015-03-18
  • Posts: 94

Topic: Изображение по таймеру

Приветствую Дмитрий. Возможно ли на форме создать показ слайдов?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Изображение по таймеру

Приветствую,


сделал для вас проект с примером:

Post's attachments

Attachment icon Sliders by timer.zip 151.7 kb, 384 downloads since 2015-08-25 

Dmitry.
  • Registered: 2015-03-18
  • Posts: 94

Re: Изображение по таймеру

Спасибо за помощь Дмитрий.

  • Registered: 2015-03-18
  • Posts: 94

Re: Изображение по таймеру

Дмитрий приветствую. Скажите пожалуйста, что необходимо изменить в данном скрипте
,что бы на PageControl в трех вкладках , изображение по таймеру срабатывали независимо от выбранной вкладки?

var
   Timer: TTimer;
   idImage: integer = 2;


procedure OnTimer;
begin
    Form1.Image19.Visible := idImage = 1;
    Form1.Image20.Visible := idImage = 2;
    Form1.Image21.Visible := idImage = 3;
    Form1.Image22.Visible := idImage = 4;
    Form1.Image23.Visible := idImage = 5;
    Form1.Image24.Visible := idImage = 6;
    Form1.Image25.Visible := idImage = 7;
    Form1.Image26.Visible := idImage = 8;
    Form1.Image27.Visible := idImage = 9;
    Form1.Image28.Visible := idImage = 10;
    Form1.Image29.Visible := idImage = 11;
    Form1.Image30.Visible := idImage = 12;
    Form1.Image31.Visible := idImage = 13;
    Form1.Image32.Visible := idImage = 14;
    Form1.Image33.Visible := idImage = 15;
    Form1.Image34.Visible := idImage = 16;
    Form1.Image35.Visible := idImage = 17;
    Form1.Image36.Visible := idImage = 18;

    Inc(idImage);
    if idImage > 18 then idImage := 1;
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Timer := TTimer.Create(Form1);
    Timer.Interval := 2000;
    Timer.OnTimer := @OnTimer;
    Timer.Enabled := True;
    
     Form1.BorderStyle := bsNone;
     if Form1.WindowState=wsNormal then
       begin
        Form1.WindowState:=wsMaximized;
       end;
end;
  • Registered: 2015-03-18
  • Posts: 94

Re: Изображение по таймеру

Вопрос снят. Разобрался.Спасибо