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;
  • 相关阅读:
    python爬虫------处理cookie的相关请求
    开课第七周周总结
    python文件的读写
    分治算法二:二分查找
    读我自己
    分治算法二:归并排序
    分治算法一:汉诺塔
    渐增型算法三:划分序列
    渐增型算法二:合并两个有序序列
    渐增型算法一:插入排序
  • 原文地址:https://www.cnblogs.com/hieroly/p/4330750.html
Copyright © 2011-2022 走看看