Show own logo on start-up

Posted in Forms

Logo is a usual form. Put the Image and Timer components to the form and load a picture to Image. It is Form1 - it will be your logo. Remove from project file this line: Application.CreateForm(TForm2, Form2); Use the code written below. Your logo is ready.

(* It for Form1 *)
procedure TForm1.FormActivate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('
    c:\...\factory.bmp');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Hide;
  Form2:=TForm2.Create(nil);
  with TForm2.Create(nil) do
    Show;
end;

(* It for Form2 *)
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Close;
end;