zoukankan      html  css  js  c++  java
  • Delphi 不用标题栏移动窗体

    procedure TxxxxForm.FormMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    const
      sc_DragMove: Integer = $F012;
    begin
      if ssCtrl in Shift then //判断“Ctrl”键是否按下
      Begin
       ReleaseCapture;        //释放鼠标事件的对象
        //(Sender as TWinControl).PerForm(wm_SysCommand, sc_DragMove, 0);
        //实现在组件内移动,如果是顶层,就是移动窗体
        //self.perform(WM_SYSCOMMAND, sc_DragMove, 0);
        //实现移动窗体
        //SendMessage(Self.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
        //实现移动窗体
      end;
    end;

    以上注释的三段#9,#11,#13都可以起到移动窗体的效果。

    procedure TxxxxForm.FormMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    const
      sc_DragMove: Integer = $F012;
    begin
      if ssCtrl in Shift then //判断“Ctrl”键是否按下
      Begin
       ReleaseCapture;        //释放鼠标事件的对象
        //(Sender as TWinControl).PerForm(wm_SysCommand, sc_DragMove, 0);
        //实现在组件内移动,如果是顶层,就是移动窗体
        //self.perform(WM_SYSCOMMAND, sc_DragMove, 0);
        //实现移动窗体
        //SendMessage(Self.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
        //实现移动窗体
      end;
    end;
  • 相关阅读:
    dpdk优化相关 转
    常用的TCP Option
    c10k C10M
    Linux惊群效应详解
    bloomfilter 以及count min sketch
    Squid 搭建正向代理服务器
    Openflow的架构+源码剖析 转载
    Hyperscan与Snort的集成方案
    动态图
    psutil 模块
  • 原文地址:https://www.cnblogs.com/hieroly/p/4330750.html
Copyright © 2011-2022 走看看