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

  • 相关阅读:
    Scrapy之下载中间件与爬虫中间件
    Scrapy之twisted模块
    Scrapy之下载中间件中的代理中间件HttpProxyMiddleware
    Scrapy之start_urls、爬虫中间件之深度,优先级以及源码流程
    Scrapy之dupefilters(去重)以及源码分析/depth
    NOI 2013 书法家
    NOI2013 快餐店
    NOI2013 树的计数
    NOI2013 UOJ122 向量内积
    NOI2015
  • 原文地址:https://www.cnblogs.com/findumars/p/4999258.html
Copyright © 2011-2022 走看看