dephi中单击鼠标拖动窗口(使用WM_SYSCOMMAND)

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND,$f012,0); //开始拖动窗体
end;

http://blog.csdn.net/diligentcatrich/article/details/7008516

时间: 2024-10-21 09:21:05

dephi中单击鼠标拖动窗口(使用WM_SYSCOMMAND)的相关文章

javascript中区分鼠标单击和拖动事件

在javascript中,一般的DOM元素如div,都有onmousedown.onmousemove.onmouseup这3个鼠标事件. <div id="div1" onmousedown="down();" onmouseup="up();" onmousemove="move();"></div> 当鼠标在div1上移动或者按下左键拖动的时候,都会触发onmousemove事件.如何区分这2种事

用鼠标在窗口中画方形

//用鼠标在窗口中画方形 //作者:sandy //时间:2015-10-7 //user can draw boxes on the screen #include <cv.h> #include <highgui.h> using namespace std; CvRect box; bool drawing_box=false; //定义一个回调函数 //define our callback which we will install for mouse event //

Selenium2学习-027-WebUI自动化实战实例-025-JavaScript 在 Selenium 自动化中的应用实例之三(页面滚屏,模拟鼠标拖动滚动条)

日常的 Web UI 自动化测试过程中,get 或 navigate 到指定的页面后,若想截图的元素或者指定区域范围不在浏览器的显示区域内,则通过截屏则无法获取相应的信息,反而浪费了无畏的图片服务器资源,当然,最重要的还是未能达到自己的预期,是不是很内伤啊.此时,我们就不得不像正常用户操作一样,通过滚动页面至相应的区域,那么该如何滚动呢,此文就此给出答案. 此文实现的页面滚动,是通过 js 操作实现的,敬请各位小主参阅.若有不足之处,敬请大神指正,非常感谢! 直接上码了...... 1 /**

C# 在RichTextBox中滚动鼠标时滚动的是父窗口的滚动条

1. RichTextBox u2 = new RichTextBox(); 2. 先记住日RichTextBox没有显示滚动条时的总宽度和显示宽度 u2.Width - u2.ClientSize.Width. 3. 当显示垂直滚动条时,显示宽度会变化. 当RichTextBox没有显示垂直滚动条时,在RichTextBox中滚动鼠标时,滚动的是父窗口的滚动条. private void U2_MouseWheel(object sender, MouseEventArgs e)       

Eclipse中,鼠标右键选择了选项卡窗口的detached属性

Eclipse中,鼠标右键选择了选项卡窗口的detached属性后,窗口就悬浮在Eclipse之上了,相当于一个windows窗口一样,关闭后,点击windows--show view出来,还是悬浮. 解决的方法一:点击window--reset Perspective 恢复到初始视图即可. 解决的方法二:在打开的窗口中的选项卡标题或选项卡标题外边,在可编辑区外边,鼠标右键,会出现一个已经打了勾的detached属性,把勾去掉即可恢复.

非激活窗口中响应鼠标滚动之理论篇

在最近工作中有一个优化交互的需求,分析后得知,其核心功能为能在非激活窗口中响应鼠标滚动消息,先就该需求进行前期方案验证. 同类产品实现 参照现有软件行为,操作系统为Win7.以notepad++,Chrome两款软件为例. 当鼠标选中notepad++后,然后将鼠标转移到Chrome界面后,上下滚动鼠标,Chrome页面能够同步滚动. 当鼠标选中Chrome后,然后将鼠标转移到Notepad++界面,上下滚动,Notepad++不能同步滚动. 猜测是Chrome对滚轮滚动消息进行了额外处理.既然

鼠标拖动窗体

1.鼠标在客户区拖动窗口 重载消息函数 procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST; procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest); begin inherited; //不可缺少 if (=Message.Result = HTCLIENT) then Message.Result := HTCAPTION; end; 2.鼠标在

转:总结Selenium WebDriver中一些鼠标和键盘事件的使用

在使用 Selenium WebDriver 做自动化测试的时候,会经常模拟鼠标和键盘的一些行为.比如使用鼠标单击.双击.右击.拖拽等动作:或者键盘输入.快捷键使用.组合键使用等模拟键盘的操作.在 WebDeriver 中,有一个专门的类来负责实现这些测试场景,那就是 Actions 类,在使用该类的过程中会配合使用到 Keys 枚举以及 Mouse. Keyboard.CompositeAction 等类. 其次,在实际测试过程中,可能会遇到某些按键没办法使用 Actions.Keys 等类来

【ActionScript】利用复制影片duplicateMovieClip与鼠标拖动跟随startDrag做出鼠标移动特效

上次在<[ActionScript]ActionScript2.0的Helloworld>(点击打开链接)中介绍了ActionScript2.0的基本用法. 这次准备打算用复制影片duplicateMovieClip与鼠标拖动跟随startDrag做出如下图的鼠标移动特效: 一.准备工作 1.首先还是与上次上一样,新建一个ActionScript2.0的文件,然后先保存一下.之后,如下图所示,通过插入->新建元件,或者Ctrl+F8,在类型中选项图形,命名随意,新建一个图形元件. 2.之