[Delphi] bsNone이면서 Resize는 가능한 폼

bsNone 이면서 Resize는 가능한 폼 만들기.

unit Unit1;

interface

uses
  Windows, Messages, Variants, Classes, Graphics, Controls, Forms, StdCtrls;

type
  Form1=class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  BorderStyle:=bsNone;
  inherited;
  Params.ExStyle:=Params.ExStyle or WS_EXSTATICEDGE;
  Params.Style:=Params.Style or WS_SIZEBOX;
end;