Форум - Ответы     (  К темам )
 ?  никакой: Спокойно... как получить координаты мышы на форме :) (07-01-2003 00:00:04)
Спокойно... как получить координаты мышы на форме :)
 Владимир (07-01-2003 11:54:00) http://cbuilder.ru
// Если годиться - то можно в событии формы onMouseMove

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
// Абсолютные координаты курсора мыши
Label1->Caption = Mouse->CursorPos.x;
Label2->Caption = Mouse->CursorPos.y;
// Координаты относительно формы
Label3->Caption = X; Label4->Caption = Y;
}
 Владимир (08-01-2003 22:44:48) http://cbuilder.ru
А можно и так:

TPoint cPt;
GetCursorPos(&cPt);
Label2->Caption = IntToStr(cPt.x) +" : "+ IntToStr(cPt.y); // абсолютная позиция
Label3->Caption = IntToStr(cPt.x-Left) +" : "+ IntToStr(cPt.y-Top); // относительно формы


support@cbuilder.ru