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

WinHack

Администратор
23 Фев 2015
2,664
1,913
bsfo.ru
Этот код показывает, как отключить перемещение формы при помощи мыши:

Код:
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;