比如我要判断鼠标的坐标是不是0,0
如果是就置LABEL1可见,否则LABEL1不可见。
最好能给个例子,谢谢。
如果是就置LABEL1可见,否则LABEL1不可见。
最好能给个例子,谢谢。
解决方案 »
- 请问Delphi里有和VB里的setkeys功能相同的函数吗?急急!!
- 求助:用动态生成的数据,如何进行数据更新/删除/添加?
- DBChart,Chart能画这样变化的曲线图吗?
- 百分请教两个问题
- 招聘Delphi程序员
- 软件开发难题(高分)
- 请教???//easy
- HELP!哪儿可找到《Delphi 5.x 分布式多层应用系统篇》书的配套源码?
- 请教各位,delpi中编写的线程总是在执行到最后的语句”end“时,出错,为什么?谢谢各位,40分送是上。
- 关于procedure of Object
- 急,菜鸟求助~~怎么实现和access数据库联接并显示,
- 如何实现树形目录,如同WINDOWS资源管理器一样?
Mouse.CursorPos.Y
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.Caption:=Format('Origin:(%d,%d)',[x,y]);
if (x=100) and (y=100) then
label1.Visible:=false
else label1.Visible:=true;
end;
p: TPoint;
begin
GetCursorPos(p);
if p.X=0 and p.Y=0 then
Label1.Visble := True
else
Label1.Visble := False;
end;
var
MP: TPoint;
获得鼠标位置:
GetCursorPos(MP);
鼠标的横坐标:
MP.X
鼠标的纵坐标:
MP.Y比如说弹出一个菜单procedure PopupAMenu;
var
MP: TPoint;
GetCursorPos(MP);
begin
AMenu.Popup(MP.X; MP.Y)
end;
label1.Visble := True
else
label1.Visble := False;