使整个窗体象标题栏一样

uses 
    Messages; 
  ... 
  public 
    procedure WMNCHitTest(var Message: TWMNCHitTest); message 
WM_NCHITTEST; 
  end; 
  ... 
  procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest); 
  var 
    P: TPoint; 
  begin 
    inherited; 
    P := ScreenToClient(SmallPointToPoint(Message.Pos)); 
    with imgTitle do 
      if (P.X >= Left) and (P.X < Left + Width) and (P.Y >= Top) and 
(P.Y < Top + Height) then 
        Message.Result := htCaption; 
  end;