慎重に記述されたWindowsプログラムには、Splash Screenと呼ばれるスタートアップの予防策が表示されます。少しのコンテンツを使用して、プログラムの表示に多くの色を追加できます。
プロジェクト自体がプログラムのメインウィンドウを作成し、メインウィンドウを作成する前にスタートアップスパッタリング画面が表示される必要があるため、プロジェクトファイルは独自の起動画面を作成する必要があります。これは、ユーザーがソースコードを変更してプロジェクトファイルを作成する必要があることを意味します。これは通常、Delphiプログラミングでは必要ありません。次のプロセスでは、スパッタリング画面を設定するプロセスを導入します。
1.新しいプロジェクトを開始します。フォームMainformに名前を付け、キャプションプロパティをSplashindemoに設定します。このプロジェクトをC：ProjectsSplashinなどのディレクトリに保存します。 MainFormユニットメインに名前を付け、プロジェクトファイルSplashinに名前を付けます。
2。メインフォームにボタンコンポーネントを挿入します。ボタンの名前をExitButtonに変更し、そのキャプションプロパティを出るに変更します。 ExitButtonのOnClickイベントのプロセッサを作成し、プロセスの開始キーワードとエンドキーワードの間に密接なステートメントを挿入します。
3. [ファイル] |新しいフォームコマンドを選択するか、[新しいフォーム速度]ボタンをクリックします。新しいフォームを追加します。
4.このフォームの名前のプロパティを変更して、そのキャプションプロパティを削除して削除します。さらに、ボーダーシルの財産をBsnoneに変更し、Bordericonsの下の3つのサブ値をFalseに設定します。
5.このプロジェクトを保存します。 Delphiが読者にユニットファイル名を提供するように促す場合、現在のディレクトリが正しいディレクトリであることを確認してください。 Splashformのユニットファイル名のSplashを入力します。
6. splashformの有効なプロパティをfalseに設定します。これは、ユーザーがWindowsにキーボードとマウスのコマンドを提供したくないまれなケースの1つです。この例では、Splashformの表示を完全に制御できるようにプログラムを使用しています。
7.ウィンドウにはアウトラインがないため、追加のコンポーネントクラスからベベルコンポーネントオブジェクトを挿入します。これにより、ウィンドウのエッジを定義するのに役立ちます。 bevel1のアライメントプロパティをAlclientに設定します。同時に、オブジェクトの形状プロパティをBSFrameに変更し、スタイルプロパティをBSRAISEDに変更します。これらの値は、ユーザーによって決定されます。
8。スプラッシュフォームで使用するコンポーネントを挿入し、ここにボタンやその他のインタラクティブコントロールを挿入しないでください。アプリケーション自体は、[スパッタリング]ダイアログボックスを表示および削除します。
9. [プロジェクト]メニューを選択します。スプラッシュプロジェクトのポップアップメニューを強調表示します。 [オプション]コマンドを選択します。 [生成されたプロジェクトオプション]ダイアログボックスで、フォームページラベルを選択します。 MainFormとSplashformは自動的に作成されたフォームリストにあることに注意してください。各フォームを強調表示し、右のマウスボタンをクリックして使用可能なフォームに移動します。すべてのDelphiフォームは、メモリとシステムのリソースを消費する実行時にメモリで自動的に作成されます。このような場合、プログラムは実行時にフォームを作成し、読者は自動化されたリストからフォームを削除する必要があります。プロジェクトオプションウィンドウを閉じます。
10。次に、メインウィンドウを表示する前に、プロジェクトのソースコードを変更して[スパッタリング]ダイアログボックスを表示します。ここでは、Splash.DPRプロジェクトファイルに一致するように、プロジェクトファイルにステートメントを挿入する必要があります。プロジェクトソースコードは次のとおりです。
プログラムProject3;
用途
フォーム、
'main.pas' {mainform}のメイン、
'splash.pas' {splashform}のスプラッシュ;
{$ r *.res}
始める
splashform：= tsplashform.create（application）;
splashform.show;
splashform.update;
application.createform（tmainform、mainform）;
splashform.close;
application.run;
終わり。
11.この時点でプログラムがコンパイルされて実行されている場合、ユーザーがそれを見る機会がないように、[スパッタリング]ダイアログを非常に迅速に表示して削除します。ダイアログボックスを強制的に数秒間表示するようにするには、プログラムのMainFormを選択します。フォームのOnCreateコマンドのプロセッサを作成します。キーワードの前に停止時間と呼ばれる長い整数変数を追加します。開始と終了の間に2つのステートメントを挿入します。1つは、Windows GetClutCount関数への呼び出しです。 Windowsが実行されている秒数に停止時間を設定します。プログラムリストは次のとおりです。
ユニットメイン;
インタフェース
用途
Windows、メッセージ、sysutils、クラス、グラフィック、コントロール、フォーム、ダイアログ、
stdctrls;
タイプ
tmainform = class（tform）
Exitbutton：Tbutton;
手順ExitButtonClick（送信者：tobject）;
手順formcreate（sender：tobject）;
プライベート
{プライベート宣言}
公共
{公開宣言}
終わり;
var
Mainform：tmainform;
実装
{$ r *.dfm}
手順tmainform.exitbuttonclick（sender：tobject）;
始める
近い;
終わり;
手順tmainform.formcreate（sender：tobject）;
var
停止時間：Longint;
始める
停止時間：= getTickCount Div 1000;
while（（getTickCount div 1000）＜（停止時間+2））
睡眠（1）;
終わり;
終わり。
12。F9を押して、プログラムをコンパイルして実行します。