Chami.com Tips

Why always drag a window by its title bar?

• Insert following two lines into your form's "Private declarations" section:

procedure WMNCHitTest( var Msg : TWMNCHitTest );
  message wm_NCHitTest;

• Add following code into the "implementation" section of your form's unit (assuming that your form is named Form1):

procedure TForm1.
  WMNCHitTest( var Msg : TWMNCHitTest );
begin
  inherited;
  { fool windows by telling it
    that it's in our caption area
    although it's in our client area }
  if( htClient = Msg.Result )then
    Msg.Result := htCaption;
end;