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