Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

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


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;

 

Добавить комментарий


Защитный код
Обновить