请问,怎么样才可以把鼠标固定在桌面的一个固定区域???急!!!!!!
分不够另外加!!!!!!
分不够另外加!!!!!!
解决方案 »
- 数据库中有datetime的字段,取出和现在时间比较小于30分钟的记录.如何取?
- 怎样把带有窗体的dll做为子窗体调用?
- delphi treeview 图标问题
- DevExpress QuantumGrid 的问题,有没有 DBGridEh 中位列 的 Picklist 和 keyList 的功能,cxgrid 只有 items ,没有 keyitems
- 连接数据库SQLSERVER 的问题
- DCOMConnection连接远程服务应用程序问题??
- 大家快来帮帮我啊,关于dbgrid的datesource的!急!
- 有谁在delphi下用过mirror driver的?
- 消息截获
- 急!关于ADO的问题啊!
- 在线求助,请高手帮忙!
- 有一个问题啊,为什么有些人可以放200分,而我最多只能放100分
请在Form中放置二个 Button, 然後分别为这两个按钮定义OnClick响应事件如下:
// 限制
procedure TForm1.Button1Click(Sender: TObject);
var
rtButton2: TRect;
begin
rtButton2 := Button2.BoundsRect;
MapWindowPoints(handle, 0, rtButton2, 2); // 座标换算
ClipCursor(@rtButton2); // 限制鼠标移动区域
end;// 还原
procedure TForm1.Button2Click(Sender: TObject);
var
rtScreen: TRect;
begin
rtScreen := Rect(0, 0, Screen.Width, Screen.Height);
ClipCursor(@rtScreen);
end;