Как отключить перемещение формы при помощи мыши

Тема в разделе "Delphi", создана пользователем WinHack, 28 ноя 2016.

  1. WinHack
    Этот код показывает, как отключить перемещение формы при помощи мыши:

    Код:
    type
      TForm1 = class(TForm)
      private
        { Private declarations }
        procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
      end;
    
    procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
    begin
     inherited;
     with Message do
       if Result = HTCAPTION then
         Result := 0;
    end;