Сплеш (окно загрузки программы)

[IliaIT]

офигеть. блин не знал как правильно создавать заставку писал ка то криво как в книжке какой то по пьяне прочитал. и создавал в проекте

begin
  Application.Initialize;
  Application.Title := 'Программа';
  Application.CreateForm(TStart_form, Start_form);
//маленькая форма с асинхронной анимацией (тогда не смотря на подвисания при загрузке анимация работает) 
// и надписями хода реализации загрузки
  Application.Run;
end.

procedure TStart_form.Start_btClick(Sender: TObject); //это поставлено на таймер 
begin
  Start_form.Status_proj.Caption:='Программа запускается';
  Start_form.Tag:=(GetCurrentProcessId);
  Application.ProcessMessages;
  Start_form.Status_proj.Repaint;
  Start_form.Start_bt.Enabled:=False;
  Start_form.Close_bt.Enabled:=False;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Form1.Show;
  Logo_anim.Animate:=false;
  Start_form.Close_bt.Enabled:=True;
  ShowWindow(Application.Handle, SW_HIDE);//что бы не было левого значка и не тупила форма при сворачивании
  Start_form.Hide;
  Start_form.Visible:=false;
end;

теперь буду ваш слеш курить. и думать как лучше...

[UKRtortik]

Сообщение от superedward

После Free твой сплэш сразу уничтожается

Я делаю как-то так

  Application.Initialize;
  FormSplash:=TFormSplash.Create(Application);{сплэш}

  with FormSplash do begin
   Show;
   Update;
   BringToFront;
  end;

  Application.CreateForm(TMainForm, MainForm);
  FormSplash.BringToFront;
  Application.ProcessMessages;
  Application.Run;

И только в событии MainForm.OnActivate освобождаю сплэш:

  if Assigned(FormSplash)then begin
   FormSplash.Hide;
   FormSplash.Release;
   FormSplash:=nil
  end;

Не работает, тоже 2 значка остаются...

[FaTaL]

Всегда делал так и всегда всё работает:

program Project1;

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

{$R *.res}

begin
  Form2 := TForm2.Create (Application);
  Form2.Show;
  Form2.Update;
  Form2.BringToFront;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form2.Close;
  Form2.Free;
  Application.Run;
end.

Где Form2 это как раз Splash форма.

[UKRtortik]

Сообщение от FaTaL

Всегда делал так и всегда всё работает:

program Project1;

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

{$R *.res}

begin
  Form2 := TForm2.Create (Application);
  Form2.Show;
  Form2.Update;
  Form2.BringToFront;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form2.Close;
  Form2.Free;
  Application.Run;
end.

Где Form2 это как раз Splash форма.

Соровно почему то остается второй значок((

  Application.Initialize;

  splash := Tsplash.Create (Application);
  splash.Show;
  splash.Update;
  splash.BringToFront;

  Application.MainFormOnTaskbar := True;
  Application.CreateForm(Tform1, form1);
  Application.CreateForm(Tform2, form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(Tform4, form4);
  Application.CreateForm(Tform5, form5);

  splash.Close;
  splash.Free;

  Application.Run;

[UKRtortik]

помогает только MainFormOnTaskbar поставить False или вообще удалить эту строку.

[IliaIT]

ShowWindow(Application.Handle, SW_HIDE);

[Volkogriz]

	
	
uses
  pngimage,StdCtrls;


//Это из ресурсов у меня это в длл-ке
Function SplashFormShow(Reference:Cardinal; const ResName,ResTip: AnsiString; IdleTime:integer):Boolean; stdcall;
var
  Stream: TStream;
  ImLoad:THandle;
  SplashForm: TForm;
  SplashImage: TImage;
  png:TPNGObject;     // мщжно jpg можно bmp))
begin
 Stream:=TResourceStream.Create(ImLoad,ResName,PAnsiChar(ResTip));
  SplashForm := TForm.create(nil);
  with SplashForm do
  begin
    Color:=$1111;
    TransparentColor:=true;
    SplashForm.TransparentColorValue:=$1111;
    BorderStyle := bsNone;
    Position := poScreenCenter;
    ClientWidth :=700; //Screen.Width
    ClientHeight :=700;// Screen.Height
   end;
    png:=TPNGObject.Create;
    SplashImage := TImage.Create(SplashForm);
  with SplashImage do    // так же можно создавать лбл-ы но и тд и тп)
    begin
    png.LoadFromStream(Stream);
    FreeAndNil(Stream);
    Picture.Graphic:=(png);
    Stretch := true;
    Align := alClient;
    Parent := SplashForm;
    FreeAndNil(png);
    end;
    SplashFormShow:=true;
  with SplashForm do
   begin
     Show;
      begin
       Repaint;
       Sleep(IdleTime);
      end;
     SplashImage.Free;
     Close;
     Free;
   //  SplashForm.Free;
   end;
 end;

//begin
//SplashFormShow(Handle,'logo','png',5000) //Это через функцию  ^^


//Это просто и с например бипмапом
//Файл ресунка битмапа сам свой кидай много мой весит
var
  SplashForm: TForm;
  SplashImage: TImage;
begin
  SplashForm := TForm.create(nil);
  with SplashForm do
  begin
    Color:=$1111;
    TransparentColor:=true;
    SplashForm.TransparentColorValue:=$1111;
    BorderStyle := bsNone;
    Position := poScreenCenter;
    ClientWidth :=700; //Screen.Width
    ClientHeight :=700;// Screen.Height
   end;
    SplashImage := TImage.Create(SplashForm);
  with SplashImage do    // так же можно создавать лбл-ы но и тд и тп)
    begin
    Picture.LoadFromFile('logo1.bmp');
    Stretch := true;
    Align := alClient;
    Parent := SplashForm;
    end;
  with SplashForm do
   begin
     Show;
      begin
       Repaint;
       Sleep(1000);
      end;
     SplashImage.Free;
     Close;
     Free;
   //  SplashForm.Free;
   end;


end.

[northener]

Сообщение от UKRtortik

Не совсем правильный пример, я думаю правильно будет так:

   with Tsplash.Create(nil) do begin
    Show;
    Free;
  end;

только так что-то вообще форма не отображается

  Application.Initialize;
   with Tsplash.Create(nil) do begin
    Show;
    Free;
  end;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(Tform1, form1);
  Application.CreateForm(Tform2, form2);
  Application.CreateForm(Tform4, form4);
  Application.CreateForm(Tform5, form5);
  Application.Run;

так что не так?

То что форма класса Tsplash уничтожается через несколько микросекунд после её создания и показа.

Ну и в качестве бонуса (имхо неоправданно неоценённое) от Юрия Зотова
Сплэш — показываем красиво