delphi中1、自定义一消息并发送，收到消息时显示一条信息“已收到消息”。 - Delphi论坛

编程论坛 → 开发语言 → 『 Delphi论坛』 → delphi中1、自定义一消息并发送，收到消息时显示一条信息“已收到消息”。

标题：delphi中1、自定义一消息并发送，收到消息时显示一条信息“已收到消息”。

只看楼主

我TDST

等　级：新手上路
帖　子：9
专家分：0
注　册：2011-7-3
结帖率：0

楼主

问题点数：0 回复次数：1

delphi中1、自定义一消息并发送，收到消息时显示一条信息“已收到消息”。

1、自定义一消息并发送，收到消息时显示一条信息“已收到消息”。
2、写一过程捕获鼠标的移动，并显示鼠标的位置。

搜索更多相关主题的帖子: 消息　

2011-07-03 23:02

yuutian

等　级：黑侠
帖　子：137
专家分：686
注　册：2010-10-27

第 2 楼

得分:0

显示鼠标位置
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   edit1.Text:=inttostr(x);
   edit2.Text:=inttostr(y);
end;

2011-07-06 15:25

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-344621-1-1.html