Delphi FAQ: キャプションなしのサイズ変更可能なフォームを作るには

１５番会議室「ＦＡＱ編纂委員会」に寄せられた「よくある質問の答え」

[Ｑ]
付箋紙アプリのような、タイトルバー（キャプション）が無く、サイズ変更可能なフォームを作るにはどのようにしたらよいでしょう。

[Ａ]

Form の CreateParams を override して、以下のように記述します。

 TForm1 = class(TForm)
   ・・・（略）・・・
 private
    { Private 宣言 }
    procedure CreateParams(var Params: TCreateParams); override;

   ・・・（略）・・・


procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := WS_POPUP or WS_THICKFRAME;
end;

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum FDELPHIに寄せられる質問の中から、よくある質問への回答を FDELPHIのメンバーがまとめたものです。　したがって、これらの回答はボーランド株式会社がサポートする公式のものではなく、掲示されている内容についての問い合わせは受けられない場合があります。