DelphiPemrograman

Anti Resize Form Delphi #216

Anjing tidak dapat mengeong

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.

anti resize form delphi

Gas donlod Anti Resize Form Delphi nya disini gan.

Download

*AFK

Andry Fadrie K

CPU : AMD Ryzen 5 1600 12Core
Mobo : Asus ROG Strix B450-F GAMING
RAM : 16GB
Storage : 12.8TB
VGA : NVIDIA GeForce GTX 1050ti
OS : KDE Neon
Kernel : 5.11.0-46

Related Articles

One Comment

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan.

Back to top button