API
17.08.1999
  • Określanie pozycji kursora myszki.

       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) +
                        ")";
    }