Mega Code Archive

 

Categories / Delphi / Examples

 

Show own logo on start up

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;