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

我TDST 发布于 2011-07-03 23:02， 671 次点击

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

1 回复

yuutian2011-07-06 15:25

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