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

[UKRtortik]

Делаю окно загрузки программы и возникла проблема, в панели задач остается значок окна

  Application.Initialize;
  splash := Tsplash.Create(Application);
  splash.Show;
  splash.Update;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(Tform1, form1);
  Application.CreateForm(Tform2, form2);
  Application.CreateForm(Tform4, form4);
  Application.CreateForm(Tform5, form5);
  splash.Free;
  Application.Run;

[саша40]

TSplach- наследник TForm?
Значит создавай его после любой из форм. А убивай перед Application.Run.

[Stilet]

Значит создавай его после любой из форм. А убивай перед Application.Run.

А я бы даже создавал до Application.Initialize; и не задавал ему Application в качестве Parent.

[UKRtortik]

Не совсем понял как правильно сделать, но если изменить значение MainFormOnTaskbar на False то остается только 1 значок.

[Stilet]

Был не прав. Так что приведу пример:

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, Unit1
  { you can add units after this };

{$R *.res}

begin
  Application.Initialize;

  with TFormSplash.Create(nil) do begin
    ShowModal;
    Free;
  end;

  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Так понятнее?

[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;

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

[Stilet]

Попробуй начать отсюда: http://habrahabr.ru/post/146101/

[northener]

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

А я бы даже создавал до Application.Initialize; и не задавал ему Application в качестве Parent.

+100500
Только так и никак иначе!

[superedward]

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

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

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

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

После 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;

[Volkogriz]

бла,бла,бла.
end;
//тут пишем нашу сплаш)
var
  SplashImage: TBitmapImage;
  SplashForm: TForm;
  SplashFileName: String;
  I : Integer;
begin

  SplashFileName := ExpandConstant('{tmp}\splash.bmp');
  ExtractTemporaryFile(ExtractFileName(SplashFileName));

  SplashForm := TForm.create(nil);
  with SplashForm do
   begin
    BorderStyle := bsNone;
    Position := poScreenCenter;
    // Указываем размеры показываемого изображения
    ClientWidth := 405;
    ClientHeight := 310;
   end;

  SplashImage := TBitmapImage.Create(SplashForm);
  with SplashImage do
    begin
    Bitmap.LoadFromFile(SplashFileName);
    Stretch := true;
    Align := alClient;
    Parent := SplashForm;
    end;

  with SplashForm do
   begin
     Show;
     for I := 1 to 1 do
      begin
       Repaint;
        // показ изображения в секундах (1000 – одна секунда, 2000 – две секунды и т.д.)
       Sleep(1000);
      end;
     Close;
     Free;
   end;
end;

end.

Всё просто))
С уважением,
Volkogriz!