Należy wywołać funkcję API GetCursorPos. Do funkcji przekazujesz wskaźnik do struktury POINT (w BCB jest to TPoint). Poniżej przykład; musisz umieścić na formie TLabel i TTimer, a kod umieść w zdarzeniu OnTimer. Program będzie wyślwietlał pozycję myszki. void __fastcall TForm1::Timer1Timer(TObject *Sender) { TPoint pt; GetCursorPos(&pt); Label1->Caption = "(" + IntToStr((int)pt.x) + ")(" + IntToStr((int)pt.y) + ")"; } |