Mega Code Archive

 

Categories / Delphi / Forms

 

To disable a form movement

Title: to disable a form movement Question: How can I disable the any form movement? Answer: Always 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;