RePaint;



          end;



        WM_NCHITTEST :



          begin



            Result := CallWindowProc(FOldWndProc,FForm.Handle,Msg,WParam,LParam);







            if Result = HTCAPTION then



            begin



              RePaint;



              p.x := LoWord(LParam);



              ScreenToClient(FForm.Handle,p);



              with BoundsRect do                  //减去框架宽度



                if (p.x >= Left-4) and (p.x <= Right-4) then Result := 888;



            end;



          end;



        WM_NCLBUTTONDOWN,WM_NCLBUTTONDBLCLK:



          begin



            Result := CallWindowProc(FOldWndProc,FForm.Handle,Msg,WParam,LParam);



            with TWMNCLButtonDown(message) do



              if not HitButton(Point(XCursor, YCursor)) then Exit;







            if WParam = 888 then



            begin



              FButtonDown := True;



              Repaint;



              SetCapture(FForm.Handle);



            end;



          end;



        WM_NCRBUTTONDOWN,WM_NCRBUTTONDBLCLK:



          begin



            if WParam = 888 then



            begin



              if Assigned(FPopup) then



   &n