Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2010年01月05日] [更新 2017年03月13日] Delphi サンプルプログラム集
   
046_フォーム非表示またはフォームを使用しないアプリケーション
動作確認等 Windows 7 U64(SP1) + Delphi XE(UP1) Pro
046_HideOrWithoutForme.zip [1,428 KB] 2017年03月13日版(EXE同梱)







フォーム非表示またはフォームを使用しないアプリケーション


フォームを使用しないアプリの作成方法と,フォームは使用するが表示しないアプリの例です.
たとえ,フォームを表示する必要がないアプリケーションでも,場合によってはフォームを使用した方が便利なことがあります.




01_フォームを使用しないアプリケーション


以下のリンクの記事のコンソールアプリの作成手順で作成したコードから,{$APPTYPE CONSOLE} の行を削除すればフォームを使用しないアプリケーションのコードとなります.
コンソールアプリとフォームを持たないアプリの違いは,この {$APPTYPE CONSOLE} 指令があるかないかの違いです.



リスト1
フォームを持たないアプリの新規作成コード
拡張子は .dpr として保存する.このコードの場合は Project1.dpr とする
program Project1;

uses
  SysUtils;

begin
//
end.


フォームを持たないアプリケーションは,以下の手順でも作成できます.
  • (1) 新規に VCL フォームアプリを作成する
  • (2) [プロジェクト] [ソース表示] でプロジェクトのソースコードを表示する
  • (3) [プロジェクト] [プロジェクトから削除] で unit1 を削除する
  • (4) begin end. で囲まれたコードを削除する
  • (5) {$R *.res} (フォームのリソースの意味) の行を削除する

プロジェクトのソースコード内に関数を記述したり,定数,変数を定義する方法は,コンソールアプリケーションの場合と同じです.

下に示すコードは,ダイアログを表示するだけの簡単な例です.
ダイアログを表示する際,テーマに対応したデザインにするには,アプリケーションマニュフェストが必要です.フォームのないプロジェクトでは [プロジェクト] [オプション] のダイアログの [アプリケーション] 項目ではランタイムテーマの設定はできません.



図1
フォームを使用しないアプリケーション
  • アプリケーションマニュフェストを使用しない場合


リスト2
フォームを使用しないアプリケーションの簡単な例
program Project1;

uses
  Forms,
  Windows;

var
  LuType : Cardinal;

begin
  //いろいろな処理
  Sleep(2000);
  LuType := MB_ICONINFORMATION or MB_TOPMOST;
  MessageBox(Application.Handle, '処理が終了しました.', '終了', LuType);
end.




02_フォームを使用するが表示しないアプリケーション


フォームを表示する必要がないアプリでも,フォームを使用した方が便利な場合があります. 例えばコンポーネントを使用する場合です.フォームにコンポーネントを配置すれば,uses 部に必要なユニット名が追加されます.
フォームを使用しないアプリでは,コンポーネントは実行時に生成しなければなりません.しかも,必要なユニットは自分で調べて追加する必要があります.

本サンプルは,フォームを使用しますが,表示しないアプリの例です.上のフォームを使用しないサンプルと同じ動作をします.
メインフォームを非表示にするとタスクバーにもアイコンが表示されなくなります.



図2
フォームもタスクバーのアイコンも非表示

リスト3
フォーム非表示でタスクバーにアイコンを表示しないようにするためのプロジェクトのソース
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.ShowMainForm := False;        //追加
  Application.CreateForm(TForm1, Form1);
  Form1.TestProc;
//  Application.Run;                        //削除
end.


Form1 のユニットのコードです. 単にダイアログを表示するだけです.
終了したら確実にダイアログを最前面に表示するために,MessageBox 関数のフラグに MB_TOPMOST を指定しています.こうしておかないと,タスクバーにアイコンを表示していないため,既に他のウィンドウが表示されている場合,それらのウィンドウに隠れてしまいます.ダイアログが表示されても気が付かないことがあります.



リスト4
フォームのユニットの処理コード
フォームを非表示にしているので,OnShow イベントは発生しないので注意
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private 宣言 }
  public
    { Public 宣言 }
    procedure TestProc;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  このメソッドをプロジェクトのソースコードから実行する
//  このフォームを表示しないでタスクバーにもアイコンを表示しない
//=============================================================================
procedure TForm1.TestProc;
var
  LuType : Cardinal;
begin
  //いろいろな処理
  Sleep(2000);
  LuType := MB_ICONINFORMATION or MB_TOPMOST;
  MessageBox(Handle, '処理が終了しました.', '終了', LuType);
end;

end.




03_条件によってはメインフォームを表示しないでアプリを終了する


ある条件を満たさない時はメインフォームを表示しないでアプリを終了し,条件を満たす時はメインフォームを表示してアプリの実行を継続したい場合,本サンプルのような方法もあります.

条件のチェックは,プロジェクトのソースコードに書いていますが,実際の条件判定は Form1 のメソッド内で実行しています.プロジェクトのソースに処理を書いてもいいのですが,uses 部に必要なユニット類を追加する必要があります.また,判定にコンポーネントのメンバーの値等を利用する場合,コンポーネントはフォームに配置でき便利です.
フォームを表示しない場合でも,フォームの OnCreate イベントは発生します.また,OnDestroy イベントも発生しますが,OnCloseQuery, OnClose イベントは発生しません.

本サンプルは,単にファイルの存在をチェックするだけとしています.



図3
条件を満たさない場合
  • ダイアログを表示してアプリを終了する
  • メインフォームを表示しないままでアプリの終了となる
図4
条件を満たす場合
  • メインフォームが表示される

リスト5
条件によってはフォームを表示しないでアプリを終了する
プロジェクトのソースコード
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);

  //条件を満たせばアプリを実行
  if Form1.CheckFile then begin
    Application.Run;
  end;
end.


リスト6
条件によってはフォームを表示しないでアプリを終了する
メインフォームのコード
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private 宣言 }
  public
    { Public 宣言 }
    function CheckFile: Boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  このメソッドをプロジェクトのソースコードから実行する
//
//  このような処理はプロジェクトのソースコードに書いてもよい
//  プロジェクトのソースコードに書く場合は,usesに必要なユニット名を追加する
//=============================================================================
function TForm1.CheckFile: Boolean;
var
  LFile  : string;
  LuType : Cardinal;

  LText  : string;
begin
  LFile := ExtractFilePath(Application.ExeName) + 'abc.txt';

  Result := FileExists(LFile);
  if not Result then begin
    LuType := MB_ICONINFORMATION or MB_TOPMOST;
    LText  := '必要なファイルが存在しません.' + sLineBreak
            + 'アプリを終了します.';
    MessageBox(Handle, PChar(LText), '終了', LuType);
  end;
end;

end.