Заставка

← →
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 и т.п.

> Что за класс 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]

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