Forbide to drag the size of the window with the mouse in Delphi
// Method one, same as BorderStyle: = bsSingle; unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 =class (TForm) protected procedure CreateParams (var Params: TCreateParams);override ; end ; var Form1: TForm1; implementation {$ R * .dfm} {TForm1} procedure TForm1.CreateParams (var Params: TCreateParams); begin inherited ; Params.Style: = Params.Style xor WS_THICKFRAME; end ; end .
// Method two, stupid method: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 =class (TForm) procedure FormCreate (Sender: TObject); procedure FormResize (Sender: TObject); end ; var Form1: TForm1; implementation {$ R * .dfm} var w, h: Integer; procedure TForm1.FormCreate (Sender: TObject); begin w: = ClientWidth; h: = ClientHeight; end ; procedure TForm1.FormResize (Sender: TObject); begin ClientWidth: = w; ClientHeight: = h; end ; end .
// Method 3: Use the OnCanResize event unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 =class (TForm) procedure FormCanResize (Sender: TObject;var NewWidth, NewHeight: Integer; var Resize: Boolean); end ; var Form1: TForm1; implementation {$ R * .dfm} procedure TForm1.FormCanResize (Sender: TObject;var NewWidth, NewHeight: Integer; var Resize: Boolean); begin Resize: = False; end ; end .