private
procedure WMMouseMove(Msg:TWMMouseMove);message WM_MouseMove;
实现:
procedure TForm1.WMMouseMove(Msg:TWMMouseMove);message WM_MouseMove;
begin
Label1.Caption:=inttostr(Msg.Xpos);
Label2.Caption:=inttostr(Msg.Ypos);
end;
procedure WMMouseMove(Msg:TWMMouseMove);message WM_MouseMove;
实现:
procedure TForm1.WMMouseMove(Msg:TWMMouseMove);message WM_MouseMove;
begin
Label1.Caption:=inttostr(Msg.Xpos);
Label2.Caption:=inttostr(Msg.Ypos);
end;
解决方案 »
- delphi操作XML问题,可能有点难度,希望高手指点
- 线程池概念
- 关于时间字段的处理!!!!急!~!!!
- 关于表情面板(或复杂popmenu)的制作思路
- fastreport问题急代解决(请教各位))
- 关于dbchart中巨难问题
- 怎样把字窗口的标题栏去掉?
- 有关在程序中创建多个窗体的问题,帮帮我啊
- 程序员最大的目的是什么?(值得一看)
- 一个关于Delphi和Sql Server 6.5结合的Web编程问题
- 我在调用dll时出现"Access violation at address xxx in module 'user32.dll'"错误
- 当我激活一个TTABLE的时候,设置了“IndexName”属性,怎么就出现“Index is out of data”的出错提示?
显示坐标可以捕捉OnMouseMove事件
Y: Integer);
begin
form1.Cursor :=crCross;
end;