Cara Agar Form Tidak Dapat Dipindahkan Atau Diresize

Bagaimana Cara - Agar Form Tidak Dapat Dipindahkan Atau Diresize

  public
      procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
 {..}

implementation
{..}


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

Tweet