Order and save right now!
20% off with the dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!
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;
More for developers