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

Form의 OnCreate 이벤트에 아래 코드를 넣어줍니다.

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and (not WS_BORDER));
  Height := Height - GetSystemMetrics(SM_CYCAPTION); 

  Refresh();
end;

Form의 BorderStyle이 bsSizeable상태에서 Caption(Title bar) 없이 생성할 수 있습니다.

2019/02/15 - [ - Delphi] - Sizeable한 Caption(Title bar) 없는 Form 만들기 - 2