Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

16th
Сен

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

Posted by Chas under Delphi

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

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.

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.