フォームのタイトルバーの左端にあるアイコンをなくすには？ (ID:26484)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 環境により動作するかは不明ですが type TForm1 = class(TForm) ・ ・ ・ protected procedure CreateParams(var params :TCreateParams);override; end; --------------------------------------------------------------- procedure TForm1.FormCreate(Sender: TObject); begin BordDerStyle :=bsDialog; //システムメニューにサイズ変更を挿入 InsertMenu(GetSystemMenu(Handle,false),1, MF_STRING or MF_BYPOSITION, SC_SIZE,'サイズ変更(&S)'); end; //フォームにサイズ変更可能な境界を持たせる procedure TForm1.CreateParams(var params: TCreateParams); begin inherited; params.Style :=params.Style or WS_THICKFRAME; end;