Topic: Изображение по таймеру
Приветствую Дмитрий. Возможно ли на форме создать показ слайдов?
My Visual Database → Russian → Изображение по таймеру
Приветствую Дмитрий. Возможно ли на форме создать показ слайдов?
Приветствую,
сделал для вас проект с примером:
Спасибо за помощь Дмитрий.
Дмитрий приветствую. Скажите пожалуйста, что необходимо изменить в данном скрипте
,что бы на 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;
Вопрос снят. Разобрался.Спасибо
My Visual Database → Russian → Изображение по таймеру
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi