Mega Code Archive

 

Categories / Delphi / Forms

 

How to create a sizable and none border style form

Title: How to create a sizable and none border style form type TForm1 = class(TForm) private { Private declarations } public { Public declarations } procedure CreateParams(var Params: TCreateParams); override; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := (Params.Style or WS_THICKFRAME); end;