Membuat Form Anti Geser di Delphi #219

andrypein.net : Projek program delphi kali ini agak cukup bodoh untuk di praktekan, yak, sesuai judul kali ini si form tersebut akan statis, diam, tidak dapat digeser-geser, dipindah-pindah, dan well, begitulah adanya.

Bisa berguna atau tidak itu terserah dan dikembalikan saja kepada programmer maunya gimana, yang pasti untuk membuatnya hanya cukup dengan sebuah deklarasi prosedur privat seperti di bawah ini.

private
    { Private declarations }
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

lalu beginilah mantra prosedurnya

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if ((msg.CmdType and $FFF0) = SC_MOVE) then
    begin
      msg.Result:=0;
      exit;
    end;
  inherited;
end;

Setelah itu tinggal di run saja, dan apa yang terjadi, coba di geser2 di pindah2 dan yah form nya mati dan kasihan si mouse nya sudah berjuang sekuat tenaga untuk geser-geserin form tapi hasilnya sadge.

Kalau ingin menambah koleksi program kecil-kecilan untuk latihan pemrograman delphi nya apps kecil bodoh form anti geser ini bisa di download disini gan :

Download

*AFK