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

• 2002年1月30日(水) 23:50 JST
• 投稿者:くろねこ

普段どこにあるかわからない、 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;

コメント (0件)

くろねこ研究所

https://www.blackcat.xyz/article.php/ProgramingFAQ_del0036