1,183
社区成员
发帖
与我相关
我的任务
分享这是什么错误？
小弟调用mapwindowpoints这个函数时出现[error]unit1.pas[38]:Declaration expected but identifier'mapwindowpoints'found请问大侠这是什么错误？
...全文
请发表友善的回复…
发表回复
pankun 2003-10-17
- 打赏
- 举报
注意,这个限制在按下Ctrl+ALT+DEL就会无效.
pankun 2003-10-17
- 打赏
- 举报
这样就可以了
procedure TForm1.Panel1Click(Sender: TObject);
var
Tmp: TRect;
begin
GetWindowRect(Panel1.Handle, Tmp);
clipcursor(@Tmp);
end;
procedure TForm1.Panel1Click(Sender: TObject);
var
Tmp: TRect;
begin
GetWindowRect(Panel1.Handle, Tmp);
clipcursor(@Tmp);
end;
wzwcn 2003-10-17
- 打赏
- 举报
代码如下（用于限制鼠标在panel1中):
procedure TForm1.Button1Click(Sender: TObject);
var myrect:Trect;
begin
myrect:=panel1.BoundsRect;
end;
mapwindowpoints(handle,0,myrect,2);
clipcursor(@myrect);
end.
procedure TForm1.Button1Click(Sender: TObject);
var myrect:Trect;
begin
myrect:=panel1.BoundsRect;
end;
mapwindowpoints(handle,0,myrect,2);
clipcursor(@myrect);
end.
aiirii 2003-10-17
- 打赏
- 举报
把相關代碼貼出來, 是其它的問題!!
pankun 2003-10-17
- 打赏
- 举报
应不会出现找不到这个函数的错误啊,你用的DELPHI哪个版本?
我用D7直接引用就可以了.
我用D7直接引用就可以了.
huojiehai 2003-10-17
- 打赏
- 举报
1。uses 它所在的单元 了没有
2。拼写正确了没有
2。拼写正确了没有
