显示鼠标位置.txt

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

1.新建一个文件夹
2.新建一个程序(File-->New-->Application)，并保存(Save All)到该文件夹
3.添加标签(Label)控件，把它的标题(文字、Caption属性)改为X,
添加标签(Label)控件，把它的标题(文字、Caption属性)改为Y,
添加编辑框(Edit)控件，把它的文本(文字、Text属性)清空，
添加编辑框(Edit)控件，把它的文本(文字、Text属性)清空
4.选择窗体(Form1),在左边的对象观察器(Object Inspector)，
翻到第二页(Events)，找到鼠标按下(OnMouseDown)事件、
鼠标移动(OnNouseMove)事件、鼠标松开(OnMouseUp)事件。
先在鼠标按下(OnMouseDown)事件，双击生成该事件，并添加代码,显示鼠标按下的位置
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.Text:=IntToStr(X); //把鼠标的X坐标转化为字符串，并显示在Edit1
  Edit2.Text:=IntToStr(Y); //把鼠标的Y坐标转化为字符串，并显示在Edit2
end;
先在鼠标移动(OnMouseMove)事件，双击生成该事件，并添加代码,显示鼠标移动的位置
procedure TForm1.FormMouseMove(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit3.Text:=IntToStr(X); //把鼠标的X坐标转化为字符串，并显示在Edit1
  Edit4.Text:=IntToStr(Y); //把鼠标的Y坐标转化为字符串，并显示在Edit2
end;
先在鼠标移动(OnMouseUp)事件，双击生成该事件，并添加代码,显示鼠标松开的位置
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit5.Text:=IntToStr(X); //把鼠标的X坐标转化为字符串，并显示在Edit1
  Edit6.Text:=IntToStr(Y); //把鼠标的Y坐标转化为字符串，并显示在Edit2
end;