Скачать: CL | DM;

Заставка   Найти похожие ветки 

← →
vajo   (2004-05-26 19:57) [0]

Надо сделать так, чтобы во время показа заставки (Form1) сформирвалась рабочая форма (Form2), т.е. сразу по завершении заставки показалась рабочая форма. А сейчас у меня рабочая форма появляется с нетолностью прорисованными компанентами и проходит некоторое время пока они прорисуются.

Поскажите какую-нибудь идейку.

---

← →
AlexG ©   (2004-05-26 21:03) [1]

Тебе нужно форму заставку формировать до создания главной формы.
Т.е. в файле проекта. Переходить к созданию основной формы только после завршения работы заставки.

---

← →
Dimaxx   (2004-05-26 23:52) [2]

У меня так:

var X: TSplash;

begin
 X:=TSplash.Create(Application);
 X.Show;
 Application.Initialize;
 Application.CreateForm(TForm1,Form1);
 X.Free;
 Application.Run;
end.

В модуле Splash стоит задержка, чтоб мона было полюбоваться этой заставкой.

---

← →
Гаврила ©   (2004-05-27 00:38) [3]

>  X.Free;


Лучше
X.Release;

чтобы поймала сообщение в тот момент, когда вся загрузка уже закончена, и цикл сообщений начал обрабатываться

---

← →
RAD   (2004-05-27 16:37) [4]

Что за класс TSplash?

---

← →
Mim1 ©   (2004-05-27 21:54) [5]

Попробуйте методы refresh, repaint, update и т.п.

---

← →
Гаврила ©   (2004-05-27 22:55) [6]

> Что за класс TSplash?


Это форма - заставка

---

← →
ceval   (2004-05-28 12:39) [7]

Есть такой вариант
создаем Fmain довавляем новую форму FSplash(делаем разные свойства BorderStyle если надо простейший Imade и тд
можно сделать onKeyDown b onMouseDown - close в свойство формы
KeyPreveiwe=true)
на Splash добавляем Timer задаем интервал,в onTimer пишем close
в событие формы OnClose пишем Action:=cfFree
procedure TSplashForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TSplashForm.Timer1Timer(Sender: TObject);
begin
close;
end;
в Fmain в событие формы onShow пишем
procedure TFmain.FormShow(Sender: TObject);
begin
 SplashForm.ShowModal;
end;

---

← →
ceval   (2004-05-28 12:43) [8]

Есть такой вариант
создаем Fmain довавляем новую форму FSplash(делаем разные свойства BorderStyle если надо простейший Imade и тд
можно сделать onKeyDown b onMouseDown - close в свойство формы
KeyPreveiwe=true)
на Splash добавляем Timer задаем интервал,в onTimer пишем close
в событие формы OnClose пишем Action:=cfFree
procedure TSplashForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TSplashForm.Timer1Timer(Sender: TObject);
begin
close;
end;
в Fmain в событие формы onShow пишем
procedure TFmain.FormShow(Sender: TObject);
begin
 SplashForm.ShowModal;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c