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;