Sizeable Delphi/꿀팁 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;pro.. Delphi/꿀팁 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 이전 1 다음
