Создание формы приветствия

[ins813]

Здравствуйте, такой вопрос, как сделать форму приветствия, т.е. есть форма1(главная) и форма2 (приветствия)-кот должна появится в начале загрузки проги и исчезнуть после неё ?

[Valio]

Делай ShowModal для формы приветствия и по таймеру закрывай.

[phomm]

procedure TForm1.FormCreate(Sender: TObject);
var
  frm: tform;
...
frm := TForm.Create(nil);
  frm.Position := poDesktopCenter;
  frm.BorderStyle := bsNone;
  frm.height := 50;
  frm.width := 130;
  frm.Show;
  frm.Canvas.Font.Size := 20;
  frm.Canvas.TextOut(10, 10, 'loading...');
//... всё что надо
  frm.free;

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

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

[ins813]

почему -то не получается код от Phomm'a и через showmodal не работал и на форуме читал http://www.programmersforum.ru/showt...=168524&page=2, что-то не работает у меня (:

[FaTaL]

Набери просто в гугле Splash в Delphi и будет куча примеров.

[Valio]

почему -то не получается код от Phomm'a и через showmodal не работал и на форуме читал

Иногда хочется сесть рядом и посмотреть...

Оно ни может не работать. Оно либо должно выдать ошибку, либо работает, но не так как нужно.

[ins813]

Valio я тебя понял , работает не так как нужно, не много переформулирую: нужен код: Форма2 открывается, пока загружается форма1, потом, соответственно закрывается и открывается Форма1

можно как-то отредактировать чтобы просто вылазила форма2 ?

procedure TForm2.FormCreate(Sender: TObject);
var
  frm: tform;
begin
frm := TForm.Create(nil);
  frm.Position := poDesktopCenter;
  frm.BorderStyle := bsNone;
  frm.height := 200;
  frm.width := 130;
  frm.Show;
  frm.Canvas.Font.Size := 50;                
  frm.Canvas.TextOut(10, 10, 'loading...'); 
  Sleep(5000);
  frm.free;
end;

[FaTaL]

Тогда вот один из самых оптимальных вариантов, в DPR файле пишешь:

  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  SplashForm.Update;
  Application.CreateForm(TMainForm, MainForm);
  SplashForm.Close;
  Application.Run;

где SplashForm это форма, которая должна отображаться, пока происходит событие MainForm.OnCreate. Как только оно пройдёт, то Splash форма закроется и откроется основное окно программы MainForm.

Если непонятно, то могу написать пример.

Вот пока успел до обеда, набросал Splash Demo

[ins813]

FaTaL лучше пример

FaTaL спасибо большое оч помог !