Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
ВнизОткрытие новой формы Найти похожие ветки
← →
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 !!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.019 c