如何响应窗口标题栏上的鼠标按下，弹起消息？

Question

一般窗体的OnMouseDown和OnMouseUp只能响应鼠标在客户区的动作，
那么如何响应鼠标在标题栏的动作呢？

Answer 1

处理消息WM_NCLBUTTONDOWN和WM_NCLBUTTONUP。
声明：
  private
    procedure WMNCLButtonDown(var Msg : TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
    procedure WMNCLButtonUp(var Msg : TWMNCLButtonUp); message WM_NCLBUTTONUP;
处理：
procedure TForm1.WMNCLButtonDown(var Msg : TWMNCLButtonDown);
begin
  inherited;
  ShowMessage('MouseDown');
end;procedure TForm1.WMNCLButtonUp(var Msg : TWMNCLButtonUp);
begin
  inherited;
  ShowMessage('MouseUp');
end;

Answer 2

消息WM_NCLBUTTONDOWN和WM_NCLBUTTONUP。