这有两种方式
可以通过假窗体实现
再者就可能通过winapi实现

解决方案 »

  1.   

    重载WM_NCHITTEST事件在Private中加入
    procedure WMNCHITTEST(var msg :TMessage) ;message WM_NCHITTEST ;在程序段加入
    procedure TMainFrm.WMNCHITTEST(var msg :TMessage) ;
    begin
         Inherited ;
         Msg.Result := HTCLIENT ;
    end;
      

  2.   

    把窗体border设成none 
    添加自己需要的图片至于拖动
    可以拦截MOUSEMOVE消息,然后在其中移动窗体(设置其left top属性)你可以参看flatstyle控件集中的tflattitlebar控件的代码
      

  3.   

    把窗体设置为fsNone;然后在顶部放一个Image;
    在image的mousedown的事件写下
      releasecapture;
      Perform(WM_NCLBUTTONDOWN, HTCAPTION, 0);