document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. unit u_form;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     procedure FormCreate(Sender: TObject);
  12.   private
  13.     { Private declarations }
  14.     procedure ManipulasiForm;
  15.     procedure WMNCLButtonDblClk(var msg: TWMNCLButtonDblClk); message WM_NCLBUTTONDBLCLK;
  16.   public
  17.     { Public declarations }
  18.   end;
  19.  
  20. var
  21.   Form1: TForm1;
  22.  
  23. implementation
  24.  
  25. {$R *.dfm}
  26.  
  27. procedure TForm1.ManipulasiForm;
  28. var
  29.  hMenuHandle : HMENU;
  30. begin
  31.  //menghilangkan icon maximize dari form
  32.  BorderIcons := BorderIcons - [biMaximize];
  33.  
  34.  //menghapus menu handle move, maximize, restore
  35.  hMenuHandle := GetSystemMenu(Form1.Handle, False);
  36.  if (hMenuHandle <> 0) then
  37.   begin
  38.    DeleteMenu(hMenuHandle, SC_MOVE, MF_BYCOMMAND);
  39.    DeleteMenu(hMenuHandle, SC_MAXIMIZE, MF_BYCOMMAND);
  40.    DeleteMenu(hMenuHandle, SC_RESTORE, MF_BYCOMMAND);
  41.   end;
  42. end;
  43.  
  44. //procedure untuk membaca Double Click pada Title Bar Form
  45. procedure TForm1.WMNCLButtonDblClk(var msg: TWMNCLButtonDblClk);
  46. begin
  47.  if (Msg.HitTest = HTCAPTION) then
  48.   begin
  49.    //dibuat agar ketika Double Click akan selalu maximize
  50.    PostMessage(Handle,WM_SYSCOMMAND,SC_MAXIMIZE,0);
  51.    Msg.Result := 0;
  52.   end
  53.  else inherited;
  54. end;
  55.  
  56. procedure TForm1.FormCreate(Sender: TObject);
  57. begin
  58.  //pemanggilan procedure
  59.  ManipulasiForm;
  60. end;
  61.  
  62. end.
');