記事カテゴリ

ユーザー機能


 2024年4月20日(土) 05:20 JST

[Delphi] アプリケーションウィンドウを表示させる方法は?

  • 投稿者:
  • 表示回数
    3,165

普段どこにあるかわからない、 Application変数(TApplication)のウィンドウ。 本当にあるのかどうか確認するために表示させることにしました。 表示させてもあまり意味がない、役立たずなサンプルです。
フォームの OnCreate に書いた場合のサンプルです。 フォーム表示と同時に、スクリーン左上にアプリケーションのウィンドウが表示されます。

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Application.Handle, GWL_STYLE, WS_CAPTION);
  SetWindowPos(Application.Handle, HWND_TOP, 0, 0, 100, 100, 0);
end;

トラックバック

このエントリのトラックバックURL:
https://www.blackcat.xyz/trackback.php/ProgramingFAQ_del0036
  • [Delphi] アプリケーションウィンドウを表示させる方法は?
  • 0 コメント
  • アカウントの登録

以下のコメントは、その投稿者が所有するものでサイト管理者はコメントに関する責任を負いません。