Delphi Tips&Tricks News   Tips   .NET Software   VCL Software   Search   Contacts
Ultimate Pack - special offer!

Ultimate Pack  hot!
Image Editor  new!
Runtime Fusion
Form Designer
Object Inspector
Print Suite Pro
Commented Image
Delphi Toys
WinDowse
Delphi Bonus
TMS Scripter Studio
Form Designer VB
Form Designer .NET

...get more...
for Delphi.NET, C#, VB.NET
for Delphi VCL, BCB 3-6

WinAPI Online
Unix Manual Pages
MegaDetailed.NET
in3steps.com
cdtrrracks.com new!

Blogspot  greatis.blogspot.com

Show own logo on start-up - Forms - Tips & Tricks - Greatis Delphi Pages

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;
For more
Delphi Help

Download source