Disable Resize Form

unit u_form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure ManipulasiForm;
    procedure WMNCLButtonDblClk(var msg: TWMNCLButtonDblClk); message WM_NCLBUTTONDBLCLK;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ManipulasiForm;
var
 hMenuHandle : HMENU;
begin
 //menghilangkan icon maximize dari form
 BorderIcons := BorderIcons - [biMaximize];

 //menghapus menu handle move, maximize, restore
 hMenuHandle := GetSystemMenu(Form1.Handle, False);
 if (hMenuHandle <> 0) then
  begin
   DeleteMenu(hMenuHandle, SC_MOVE, MF_BYCOMMAND);
   DeleteMenu(hMenuHandle, SC_MAXIMIZE, MF_BYCOMMAND);
   DeleteMenu(hMenuHandle, SC_RESTORE, MF_BYCOMMAND);
  end;
end;

//procedure untuk membaca Double Click pada Title Bar Form
procedure TForm1.WMNCLButtonDblClk(var msg: TWMNCLButtonDblClk);
begin
 if (Msg.HitTest = HTCAPTION) then
  begin
   //dibuat agar ketika Double Click akan selalu maximize
   PostMessage(Handle,WM_SYSCOMMAND,SC_MAXIMIZE,0);
   Msg.Result := 0;
  end
 else inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 //pemanggilan procedure
 ManipulasiForm;
end;

end.