Scalabium Software

#8:How can I disable a form movement?

Always in any tip collection I saw a question: how can I move a window by hit in any part of form? But I never saw a reverse question: how to disable a movement.

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

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

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

Copyrightc 1998-2008, Scalabium Software. All rights reserved.
webmaster@scalabium.com

August 6, 1999