[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 145
  • Last Modified:

Opening Screen

I saw on many many programs like Netscape, MsWord and many many more, an opening screen that shows until the program loads itself.
Delphi programs are many times takes plenty of time until it loads itself and it really boring, so an opening screen can be helpful.
Please tell me how to do it !!!
0
urih
Asked:
urih
1 Solution
 
alona041797Commented:
It's quite easy. In the main form's OnCreate event create and show the opening form, and then in the active event hide and destroy it.

Procedure TForm1.Form1Create(Sender:TObject);
begin
  openscreen:=topenscreen.create(nil);
  openscreen.show;
end;

Procedure TForm1.OnActivate(Sender:TObject);
begin
  openscreen.hide;
  openscreen.free;
end;
0
 
urihAuthor Commented:
10x!
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now