Anti Resize Form Delphi #216

andrypein.net : Bagi kalian yang tau kemprog (Baca : Camfrog) pasti kalau ingin mere-size form nya kita mesti buy tuh si aplikasinya, karena form resize nya di disable.

Aing gapernah kemprogan ya, aing cuma mempelajari ternyata free user dibatasi, non multiclient dan un-resizeable.

So di delphi pun kita bisa melakukannya dengan koding bagaimana mendisable sebuah fungsi form agar tidak bisa di resize.

Sample cuma form kosong doangan lah.

Sebelumnya pasang procedure ini di deklarasi privat gan.

private
    { Private declarations }
    procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;

Berikut procedure lengkap nya :

procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
  inherited;
  with Msg.MinMaxInfo^ do begin
     ptMinTrackSize.x:= Form1.width;
     ptMaxTrackSize.x:= Form1.width;
     ptMinTrackSize.y:= Form1.height;
     ptMaxTrackSize.y:= Form1.height;
  end;
end;

Fix di run kamu telah berhasil membuat form yang sama fungsinya dengan kemprog yang tidak bisa di resize, congrats.

Gas donlod Anti Resize Form Delphi nya disini gan.

Download

*AFK