Solved

Opening Screen

Posted on 1997-04-19
2
136 Views
Last Modified: 2010-04-04
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
Comment
Question by:urih
2 Comments
 
LVL 2

Accepted Solution

by:
alona041797 earned 200 total points
ID: 1335487
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
 

Author Comment

by:urih
ID: 1335488
10x!
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…
How to Install VMware Tools in Red Hat Enterprise Linux 6.4 (RHEL 6.4) Step-by-Step Tutorial

679 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question