展开全部
在Form中创建一个MouseMove的事件.
//创建鼠标在Form中的移动事件
procedure TForm1.FormMouseMove(Sender:Tobject;Shift:TshiftState:X,Y:Integer);
begin
statusbar1.Panels.Items[0].Text='X'+IntToStr(X);//在状态栏里写出鼠标的X坐标
statusbar1.Panels.Items[1].Text='Y'+IntToStr(Y);//在状态栏里写出鼠标的Y坐标
end;
//创建鼠标在Form中的移动事件
procedure TForm1.FormMouseMove(Sender:Tobject;Shift:TshiftState:X,Y:Integer);
begin
statusbar1.Panels.Items[0].Text='X'+IntToStr(X);//在状态栏里写出鼠标的X坐标
statusbar1.Panels.Items[1].Text='Y'+IntToStr(Y);//在状态栏里写出鼠标的Y坐标
end;
展开全部
用this关键字,this.X this.Y 或者 e.X e.Y 试试!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在Form1中的MouseMove的事件里用 事件类型参数 e.x和e.Y 就可以了.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-07-06
展开全部
你这么着,用父窗体的坐标减去panel的左上角坐标就是当前的坐标
另外,团IDC网上有许多产品团购,便宜有口碑
另外,团IDC网上有许多产品团购,便宜有口碑
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询