Odczyt pozycji kursora
Aby podczas przesuwania kursora myszki na etykiecie Label1 była wyświetlana aktualna pozycja kursora tworzymy funkcję obsługującą zdarzenie OnTimer komponentu Timer (zakładka komponentów System) i wywołujemy funkcję Windows API GetCursorPos() podając jako argument zmienną typu POINT, funkcja ta zapisuje do tego argumentu współrzędne kursora myszki, które później wyświetlamy na etykiecie dokonując wcześniej konwersji z liczby na łańcuch AnsiString() za pomocą funkcji IntToStr():
Unit1.cpp |
void __fastcall TForm1::Timer1Timer(TObject *Sender) GetCursorPos(&pozycja); |