zoukankan      html  css  js  c++  java
  • 通过控件移动窗体 标签: integer 20080520 16:13 342人阅读 评论(0) 收藏

    所谓通过控件移动窗体,常用于无边框窗口的移动,需要通过拖动某个控件来使整个窗体移动。

    简单总结下两种方法

    方法1:HTCLIENT转换为HTCAPTION

    函数定义
      private
        { Private declarations }
        procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHITTEST;
    函数实现
    procedure TmForm.WMNCHitTest(var Msg:TWMNCHitTest);
    var
      p: TPoint;
    begin
      DefaultHandler(Msg);

      
    if Msg.Result = HTCLIENT then begin
      with JvHTLabel1 
    do begin
        p.X:
    = Left; p.Y:= Top;
        p :
    = Application.MainForm.ClientToScreen(p);
        
    if (Msg.XPos > p.X) and (Msg.XPos < p.X + Width) and
           (Msg.YPos 
    > p.Y) and (Msg.YPos < p.Y + Height) then
        begin
          Msg.Result:
    = HTCAPTION;
          SetCursor(LoadCursor(
    0,IDC_SIZEALL));
        end;
      end;
      end;
    end;

    方法2:发送系统消息

    给目标控件添加OnMouseDown消息处理函数,实现方法很简单

    procedure TmForm.JvHTLabel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      ReleaseCapture;
      SetCursor(LoadCursor(0,IDC_SIZEALL));
      Perform(WM_SYSCOMMAND,$F012,0);
    end;
  • 相关阅读:
    MySQL数据库之索引
    python面向对象编程
    linux端口占用
    lintcode
    java基础
    lintcode
    linux 常用命令
    Docker & Kubernates
    angular preparation
    java 命令行
  • 原文地址:https://www.cnblogs.com/zerofire/p/7162176.html
Copyright © 2011-2022 走看看