デルファイ - WinAPIのGetCursorPosを通じてリアルタイム表示を達成するために、マウスの位置

WinAPIのGetCursorPosを通じてリアルタイム表示を達成するためにマウスの位置

時々、私たちは次のように達成することができ、リアルタイムでのマウスの位置のうち、クロールする必要があります。

、100ミリ秒に実行間隔をタイマーコントロールを追加し、コントロールには、次のコードを入力し、二重です。

1つの VAR 
2    P：TPoint。
3  開始
4     GetCursorPos（P）を、
5     RzLabel_Point.Caption：=フォーマット（' （％d個、％d）は' [PX、PY]）。
6  終わり ;

フォームを表示するイベント、表示スタイルを調整するために、マウスに次のコードを入力します。

1 Screen.Cursor：= crHandPoint。

正味の効果：

 

 

ユニットのコードは次のよう：

1つの 単位U_Operation。
2  
3  インターフェース
4  
図5は、 使用
6    Windowsの、メッセージ、sysutilsの、変異体、クラス、グラフィックス、コントロール、フォーム、
 7つの   ダイアログ、ExtCtrls、RzPanel、StdCtrls、RzLabelと、
8  
9  種類
10    TFrm_Operation = クラス（TFormは）
 11      RzGroupBox1：TRzGroupBox。
12      RzGroupBox2：TRzGroupBox。
13      Timer_Display：TTIMER。
14      RzLabel1：TRzLabel。
15      RzLabel_Point：TRzLabel。
16      手順Timer_DisplayTimer（送信者：TObjectを）。
17     手順FormCreate（送信者：TObjectを）;
18    プライベート
19      { 専用宣言} 
20    公衆
21      { 公開宣言} 
22    の端部、
23  
24  VAR 
25    Frm_Operation：TFrm_Operation。
26  
27  実装
28  
29  { $ Rの*の.DFM } 
30  
31  手順TFrm_Operation.Timer_DisplayTimer（送信者：TObjectを）。
32  VAR 
33    P：TPoint。
図34は 開始
35の    GetCursorPos（P）を、
36     RzLabel_Point.Caption：=フォーマット（' （％d個、％d）は' [PX、PY]）。
37  端部、
38  
39  手順TFrm_Operation.FormCreate（送信者：TObjectを）。
40  開始
41     Screen.Cursorを：= crHandPoint。
42  端部、
43  
44  終わり。