如题
解决方案 »
- TListView.OwnerData=true; 更新显示??
- delphi中怎样才能解决“至少一个参数没有被指定值”的问题
- 如何在DLL中为窗体创建控件并且为该控件增加事件和代码,以BUTTON为例。
- 我为什么不能在dll中开辟新线程
- 关于DBGrid读数据库内容后重排的问题?
- 在DELPHI中调用ORACLE存储过程中的CURSOR输出参数,oracle部分已解决,delphi这边用ADO怎样实现?
- sum问题
- 笨懒猫紧急求救?
- 请帮菜鸟走一步!!!
- 如何实现ImageList中的所有Images输出到同一个bmp文件中,就象Delphi的ImageList Editor一样。
- 很初级的问题,如何限制TEDIT和TCOMBOBOX只能输入指定的值?
- win98和winme如何使用SQL SERVER2000(桌面版)的全文检索功能。
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
rtButton2: TRect;
begin
// 获取B u t t o n 2组件的坐标
rtButton2 := Button2.BoundsRect;
// 将坐标转换为屏幕坐标
MapWindowPoints(handle, 0, rtButton2, 2);
// 将鼠标移动的范围限制在B u t t o n 2组件上
ClipCursor( @rtButton2 ) ;
end ;
procedure TForm1.Button2Click(Sender: TObject);
begin
// 取消鼠标移动范围的限制
ClipCursor( 0 );
end;end.