[ins813]

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

[Pyro]

а если главной сделать форму приветствия?

[ins813]

Прога уже готова, поэтому не получится (к 1ой форме все подвязано, тем более через дочерние формы)

[Pyro]

если delphi7 то надо там, где Application.CreateForm первой поставить форму заставки и она станет главной (или что-то сломается?)

[ins813]

Делфа 2010, есть код можешь отредактировать чтобы просто вылазила форма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;

[ined]

WindowState wsMinimized
После приветствия
WindowState wsNormal

Попробуй так

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
sleep(5000);
form1.WindowState:=wsNormal;
end;

[ins813]

Вот в принципе рабочий код, но нужна задержка ?

Код:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
Application.Initialize;
  Form2:=TForm2.Create(application);
  Form2.Show;
  Application.CreateForm(TForm1, Form1);
  {прочие действия при загрузке}
  Form2.Free;
  Application.Run;
end.

[ins813]

все, разобрался, Всем спасибо !