Nie musi. Ustaw dla formy.
// plik *.dpr
Application.Initialize;
// tworzenie splasha
Splash := TSplash.Create(nil);
Splash.Show();
Splash.Update();
// tworzenie form programu
Application.CreateForm(TDM, DM);
Application.CreateForm(TMainForm, MainForm);
// niszczenie splasha
Splash.AnimateAlpha();
Splash.Hide();
Splash.Free();
// start właściwej aplikacji
Application.Run;
//======================
unit fSplash;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg;
type
TSplash = class(TForm)
imSplash: TImage;
private
{ Private declarations }
public
{ Public declarations }
procedure AnimateAlpha;
end;
var
Splash: TSplash;
implementation
{$R *.dfm}
procedure TSplash.AnimateAlpha;
var i :Byte;
begin
for i := 255 downto 100 do
begin
Sleep(10);
AlphaBlendValue := i;
end;
end;
end.