Title: Show own logo on start-up
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;