@
解决方案 »
- 介绍一下二维的条码控件
- TStrings 和TStringList到底有什么区别????
- sql语句多个参数传递的问题?????
- 如何计算某个日期一个前一个月的日期,急,在线等待
- 咨询关于DELPHI进行WEB SERVICE客户端编程的问题
- 简单问题,高分相送(200分)!如何设置图形填充
- 关于用TIDHTTP下载文件的问题,各位大虾多多指教啊
- 为什么用代理上MSN messenger老是掉线,而且断了之后会自动连接
- 关于dbgrid的两个问题,请大家帮忙!!
- 紧急求助,高分相送,关于SQL中的GB问题
- 两个ADOQuery指向同一个数据库表,在一个中增加记录,另一个是否自动增加记录?
- !!!请问怎样把鼠标控制在一个窗口之内???
btScreen: TRect;
begin
btScreen := Rect(0, 0, Screen.Width, Screen.Height);
ClipCursor(@btScreen);
end;
r: TRect;
begin
r := Rect(0, 0, 100, 100);
ClipCursor(@r);
end;
var
r: TRect;
begin
GetWindowRect(Form1.Handle, r);
ClipCursor(@r);
end;
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Db, ExtCtrls;type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
rt: Trect;
begin
rt :=Panel1.BoundsRect;
MapWindowPoints(handle, 0, rt, 3);
ClipCursor(@rt); // ÏÞÖÆÊó±êÒƶ¯ÇøÓò
end;
procedure TForm1.Button2Click(Sender: TObject);
var
rtScreen: TRect;
begin
rtScreen := Rect(0, 0, Screen.Width, Screen.Height);
ClipCursor(@rtScreen);
end;end.