Открытие новой формы

← →
Ramzes (2002-09-26 07:52) [0]

Добрый день Мастера! Есть Form1 и Form2.
Как открыть сначало Form2 затем через 10 секунд открыть Form1.
Form2.Visible:=False; и Form2.Visible:=True; не подходит и Showmodal тоже не подходит т.е.
Открывается заставка (Form2) затем таймер отсчитывает 10 секунд и запускается или начинает работать прога-(Form1)
КАК сделать, подскажите пожалуйсто Мастера,желательно небольшим кодом. Заранее благодарен!

← →
Bsl (2002-09-26 08:05) [1]

От того, зачем тебе это нужно, зависит решение.

Например, можно попользовать SplashWindow из RXLib 2.75 - здесь можно вывести небольшую форму с некоторой информацией типа : "Гружусь".

А вообще, мне показалось, что обе формы у тебя автоматом создаются - так сделай создание форм в нужный момент - и все дела.

Кстати, отсчет по таймеру, либо через GetTickCount с постоянным вызовом Application.ProcessMessages;

← →
andrey_pst © (2002-09-26 08:08) [2]

1) Делай новую форму, сохрани ее (например в UnitSplash.pas)
2) В меню - Project/Options
Далее закладка Forms: перемести эту форму из окна Auto-Create Forms в Available Forms
3) Открой файл Project1.dpr
правь:
program Project1;

uses
Forms,
Unit1 in "Unit1.pas" {PagesDlg},
UnitAbout in "UnitAbout.pas" {FAbout},
UnitSplash in "UnitSplash.pas" {FSplash},

{$R *.RES}

begin
Application.Initialize;
FSplash := TFSplash.Create(Application); // создание заставки
FSplash.Show; // вывод заставки
FSplash.Update; // прорисовка заставки
Application.CreateForm(TPagesDlg, PagesDlg);
Application.CreateForm(TFAbout, FAbout);
FSplash.Hide; // удаление заставки
FSplash.Free; // удаление экземпляра объекта класса TFSplash
Application.Run;
end.

Я обычно заставки так делаю.
Зачем те 10 сек. ? Программа быстро запускается ? Так ведь хорошо-же :)
По моему это плохая практика - тормозить загрузку программы, бесит ведь - ты сидишь как дурень, а у тя на экране светится "Меня сделал ВАСЯ". Можно ведь меню или кнопку About сбацать.
Заставка - для того чтобы user знал, что программа загружается, паниковать не надо, надо ждать...

← →
Ramzes (2002-09-26 08:18) [3]

> andrey_pst
OK !
Спасибо andrey_pst !!!

Открытие новой формы Найти похожие ветки