Scalabium Software |
|
| Knowledge for your independence'. | |
#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;
|
|
|
Copyright© 1998-2025, Scalabium
Software. All rights reserved. |