普段どこにあるかわからない、 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;
以下のコメントは、その投稿者が所有するものでサイト管理者はコメントに関する責任を負いません。