delphi.gif (306 バイト) スプラッシュウィンドウ


スプラッシュウィンドウ(Splash Window)とは、起動に時間のかかるアプリケーションの場合、そのアプリケーションのタイトルやバージョンなどを表示し、起動が完了したら自動的に消えていくようなウィンドウです。

toach.gif (917 バイト) アプリケーションにスプラッシュウィンドウを追加するには

  1. 「ファイル/新規作成」メニューによってプロジェクトにフォーム(ここではForm2とします)を追加します。
  2. Form2のプロパティをオブジェクトインスペクタで設定します。例えば、タイトルバーをつけたくなければ、BorderStyleをbsNoneにします。スクリーンの中央に表示したければ、PositionをpoScreenCenter(poDesktopCenterでもよい)にします。
  3. 「プロジェクト/オプション」メニューを開いて、Form2を自動生成しないようにします。
  4. メインフォームにOnCreateイベントハンドラを追加して次のコードを追加します。

procedure TForm1.FormCreate(Sender: TObject);
begin
    Form2 := TForm2.Create(Self);
    Form2.Show;
    Form2.Refresh;
    Sleep(2000);  // <--テストの場合。実際には時間のかかる処理を行う
    Form2.Release;
end;