显示鼠标位置.txt

学习Delphi最好的教材。通过一个个简单而实用的实例

复制Ctrl C 粘贴Ctrl V
1.建一个文件夹，用于放程序。
2.新建一个程序。
3.保存(用Save All)
4.向窗体上放一个标签(Label)控件,把它的标题(文字,Caption属性)改为X
(改字体用Font属性，同时改多个控件的属性就全选上)，
向窗体上放一个标签(Label)控件,把它的标题(文字,Caption属性)改为Y,
向窗体上放两个编辑框(Edit)控件,把它们的文字(Text属性)清空
5.选择窗体(Form1),在左边的"对象观察器"(Object Inspector)工具栏
(在窗体上选择一个对象时，这里可以看到它的资料，对象观察器有
"属性Property"、"事件Event"两页)翻到"事件Event"页，找到
"当鼠标移动"(OnMouseMove)事件,在它右边的空处双击，就产生该事件，添加代码，
显示鼠标位置
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Edit1.Text:=IntToStr(X);
  Edit2.Text:=IntToStr(Y);
  //变量有类型，如整数型(Integer)35，4321；字符串(String)：'大家好'，'xyz' ,
  //字符串型要加单引号。
  //把整型变为字符串，用IntToStr()函数
  //把字符串变为整数，用StrToInt()函数
end;