》》》》》在DELPHI中如何处理鼠标移动事件！《〈〈〈〈〈〈〈

Question

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;
 

Answer 1

换光标可改变TForm.Cursor属性
显示坐标可以捕捉OnMouseMove事件

Answer 2

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
form1.Cursor :=crCross;
end;