例如,通过一个定时器Timer1的触发事件源来检测鼠标位置
1 2 3 4 5 6 |
void __fastcall TForm1::Timer1Timer(TObject *Sender) { TPoint pt; GetCursorPos(&pt); Label1->Caption = "(" +IntToStr(pt.x) +")(" +IntToStr(pt.y) +")"; } |
例如,通过一个定时器Timer1的触发事件源来检测鼠标位置
1 2 3 4 5 6 |
void __fastcall TForm1::Timer1Timer(TObject *Sender) { TPoint pt; GetCursorPos(&pt); Label1->Caption = "(" +IntToStr(pt.x) +")(" +IntToStr(pt.y) +")"; } |