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

  • 相关阅读:
    ionic -v2版本项目结构
    Ionic -v1初始项目结构
    Ionic创建混合App(一)
    basename函数不能获取url路径中文文件名的问题
    TP框架中的A方法和R方法
    TP框架中的M、D、C、I、A、S方法
    TP中如何去掉index.php
    利用vsftpd在Linux构建安全的FTP服务
    linux上使用netstat查看当前服务和监听端口
    juniper防火墙清空配置恢复出厂设置命令
  • 原文地址:https://www.cnblogs.com/findumars/p/4999258.html
Copyright © 2011-2022 走看看