摘要:        
SetCursorPos(100,50); 设置鼠标坐标GetCursorPos(pos); 获取鼠标坐位参考:http://bbs.csdn.net/topics/380556http://bbs.csdn.net/topics/50259569还有一个就限制光标在矩形区域:相关函数ClipCursor() http://www.cnblogs.com/devcjq/articles/2908859.html    阅读全文
posted @ 2013-02-07 18:41
stma
阅读(437)
评论(0)
推荐(0)
        
            
        
        
摘要:        
其实只是利用一个隐藏的控件来制定矩形区域,可以使Button、Panel、Memo等,总之看不见它,然后在窗体OnMouseDown函数中添加SendMessage(Handle, WM_SYSCOMMAND, 61457, 0);来移动窗体,具体代码如下:新建工程,加一个Panel控件,Visible属性设为False,调整大小,完成后鼠标在该控件矩形内可以拖动窗体,而该位置可以添加Image等,就能实现伪标题栏效果://开始unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Co    阅读全文
posted @ 2013-02-07 17:23
stma
阅读(542)
评论(0)
推荐(0)
        
            
        
        
摘要:        
procedure TForm1.Button3Click(Sender: TObject);var rtButton4:TRect;begin //获取Button4控件的坐标区域 rtButton4:=Button4.BoundsRect; //将坐标转换为屏幕坐标 MapWindowPoints(handle,0,rtButton4,2); //将坐标移动的范围限制在Button4控件上 ClipCursor(@rtButton4);end;转自:http://zhidao.baidu.com/question/86448742.html    阅读全文
posted @ 2013-02-07 17:20
stma
阅读(201)
评论(0)
推荐(0)
        
            
        
        
摘要:        
http://www.baidu.com/s?wd=www.hao123.com鼠标右键 标题 菜单属性 http://www.baidu.com/link?url=k7w4GJqjJ4zBBpC8yDF8xDh8vibi0VdeZTZUr9UONBu这样链接就出现了。    阅读全文
posted @ 2013-02-07 11:40
stma
阅读(6976)
评论(0)
推荐(0)
        
                    
                
浙公网安备 33010602011771号