Как сделать чтобы при запуске программы form2 отображалась 5 секунд?

@barsik123 · Регистрация: 26.12.2014

Author24 — интернет-сервис помощи студентам

Как сделать чтобы при запуске программы form2 отображалась 5 секунд потом закрывалась и уже для работы как обычно отображалась form1? В билдере была такая примочка как таймер. В лазарусе как это реализовать?

@edukra · 08.05.2015, 10:03

В lazarus тоже есть таймер.

Pascal

uses unit2;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  timer1.Enabled:=false;
  form2.close;
  form1.Show;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
  if timer1.Enabled then begin
    form2.Show;
    form1.Hide;
  end;
end;

@barsik123 · 08.05.2015, 10:48 **[ТС]**

edukra, время показа формы 2 в свойствах объекта надо будет задать я так понимаю

@edukra · 08.05.2015, 10:49

Да. interval 5000 милисекунд.

@barsik123 4 / 4 / 0 Регистрация: 26.12.2014 Сообщений: 471
		1
	Как сделать чтобы при запуске программы form2 отображалась 5 секунд? 08.05.2015, 09:18. Показов 1703. Ответов 3 Метки нет (Все метки) Как сделать чтобы при запуске программы form2 отображалась 5 секунд потом закрывалась и уже для работы как обычно отображалась form1? В билдере была такая примочка как таймер. В лазарусе как это реализовать? 0

@barsik123 4 / 4 / 0 Регистрация: 26.12.2014 Сообщений: 471
	08.05.2015, 10:48 [ТС]	3
	edukra, время показа формы 2 в свойствах объекта надо будет задать я так понимаю 0

@edukra 600 / 548 / 210 Регистрация: 24.01.2012 Сообщений: 1,348
	08.05.2015, 10:49	4
	Да. interval 5000 милисекунд. 1

Как сделать чтобы при запуске программы form2 отображалась 5 секунд?

Решение