タイトルバーのないFormでもマウスでリサイズ可能にする
32	NoTitleBarResizeOnMouse	動作確認	Delphi2007	更新日	2008/01/18(金)

FormのBorderStyleをbsNoneにしてしまうと
のっぺりとした境界線になって
マウスでFormの端をつまんでリサイズすることができなくなります。

これをリサイズできるようにします。
────────────────────
type
  TForm1 = class(TForm)
  private
  protected
    procedure CreateParams(var params: TCreateParams); override;
  public
  end;


procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  Self.BorderStyle := bsNone;
  inherited CreateParams(Params);
  Params.Style := Params.Style or WS_THICKFRAME;
end;
────────────────────

または、このようにしてもよいでしょう。

────────────────────
procedure TForm1.CreateParams(var params: TCreateParams);
begin
  Self.BorderStyle := bsSizeable;
  inherited;
  with Params do
    Style := (Style or WS_POPUP) XOR WS_DLGFRAME;
end;
────────────────────

タイトルバーがないのにリサイズができるFormが作れます。


参考────────────────────
DelphiQ&A掲示板
タイトルバーを非表示にするには？
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200608/06080041.txt

C++Builder Q&A キャプションのないフォームを作成する方法 
http://www.borland.co.jp/qanda/cbuilder/c0003003.html