Sizeable한 Caption(Title bar) 없는 Form 만들기 - 2

TForm1 = class(TForm)
private
  { Private declarations }
  ..
  procedure CreateParams(var Params : TCreateParams); override;
  procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
end;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);

  //폼의 BorderStyle을 None으로 하고 크기조절이 가능하도록 변경합니다.
  Params.Style := WS_THICKFRAME or WS_POPUP or WS_BORDER;
end;

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;

  if( HTCLIENT = Message.Result )then 
  begin
    Message.Result := htCaption; //윈도우 메시지를 바꿔 폼 클릭으로 이동할 수 있게 합니다.
  end;
end;

2018/11/05 - [ - Delphi] - Sizeable한 Caption(Title bar) 없는 Form 만들기 - 1