Form - Imovel |
Top Previous Next |
type TForm1 = class(TForm) .. public procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest; end;
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); begin inherited; if M.Result = htCaption then M.Result := htClient; end; |