var
p: TPoint;
begin
GetCursorPos(p);
end;
p: TPoint;
begin
GetCursorPos(p);
end;
解决方案 »
- 2个问题一起问,大家帮帮忙
- 儿膝下有黄金。这就是网络社区中低层次问题不断重复出现的原因!!!!!!!!!!
- 大家帮呀
- 做单机版系统,到底用Access做数据库还是用Sql Server好??? Access数据库“稳定”吗???
- DELPHI6开发人员指南光盘上的源代码哪里有下?
- 也是窗口,如何关闭中间层窗口让1,3层照样正常运行
- 判断TMemo内当前光标在选择串的位置?
- 现在做什么程序最挣钱?????
- 巨简单问题:那个 tabcontrol(好象是 pagecontrol) 怎么用?好象我放了一个在 窗口上,然后在那个 tabcontrol(好象是 pagecontrol) 上放一个按钮,结果每一页都有?
- 高手请进,安装程序问题
- 为什么form的宽最小只能112
- 如何简单的实现禁止局域网某个ip地址的用户上网?十万火急
p: TPoint;
begin
GetCursorPos(p);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption := Format('Mouse.CursorPos.X:%d, Mouse.CursorPos.Y:%d',
[Mouse.CursorPos.X, Mouse.CursorPos.Y])
end;
p: TPoint;
begin
GetCursorPos(p);
end;