Как запретить перемещение формы?

Материал из DRKB

Как запретить перемещение формы?[править | править код]

type
  TyourForm = class(TForm)
  private
    { Private declarations }
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
  end;

implementation

procedure TyourForm.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;

  with Message do
    if Result = HTCAPTION then
      Result := HTNOWHERE;
end;


Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 00511