zoukankan      html  css  js  c++  java
  • Delphi 实现无窗口移动(发WM_NCHITTEST消息计算,然后再发WM_SYSCOMMAND消息,带参数SC_DRAGMOVE)

    procedure imgListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    private
     procedure WMNCHITTEST(var Msg: TWMNCHITTEST); message WM_NCHITTEST;
    
    
    procedure TfrmStartHit.WMNCHITTEST(var Msg: TWMNCHITTEST);
    const
      cOffset = 10;
    var
      vPoint: TPoint;
    begin
      inherited;
      vPoint := ScreenToClient(Point(Msg.XPos, Msg.YPos));
      if PtInRect(Rect(0, 0, cOffset, cOffset), vPoint) then
        Msg.Result := HTTOPLEFT
      else if PtInRect(Rect(Width - cOffset, Height - cOffset, Width, Height), vPoint) then
        Msg.Result := HTBOTTOMRIGHT
      else if PtInRect(Rect(Width - cOffset, 0, Width, cOffset), vPoint) then
        Msg.Result := HTTOPRIGHT
      else if PtInRect(Rect(0, Height - cOffset, cOffset, Height), vPoint) then
        Msg.Result := HTBOTTOMLEFT
      else if PtInRect(Rect(cOffset, 0, Width - cOffset, cOffset), vPoint) then
        Msg.Result := HTTOP
      else if PtInRect(Rect(0, cOffset, cOffset, Height - cOffset), vPoint) then
        Msg.Result := HTLEFT
      else if PtInRect(Rect(Width - cOffset, cOffset, Width, Height - cOffset), vPoint) then
        Msg.Result := HTRIGHT
      else if PtInRect(Rect(cOffset, Height - cOffset, Width - cOffset, Height), vPoint) then
        Msg.Result := HTBOTTOM;
    end;
    
    
    procedure TfrmStartHit.imgListMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    const
      SC_DRAGMOVE = $F012;
    begin
      if (Button = mbLeft) then
      begin
        ReleaseCapture;
        (Self as TControl).Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
      end;
    end;

    http://blog.csdn.net/yanjiaye520/article/details/6736069

  • 相关阅读:
    js 面试的坑:变量提升
    meta 标签大全
    一个极为简单的requirejs实现
    AMD 的 CommonJS wrapping
    浅解析js中的对象
    javascript运动系列第二篇——变速运动
    开发汉澳即时通信网,2006年上线,QQ死期到了
    SpringMVC中的异步提交表单
    HDU 3698 DP+线段树
    黑马程序猿_反射、内省、泛型
  • 原文地址:https://www.cnblogs.com/findumars/p/4999258.html
Copyright © 2011-2022 走看看