Форум — Ответы     (  К темам )

?	никакой: Спокойно... как получить координаты мышы на форме :) (07-01-2003 00:00:04)
Спокойно... как получить координаты мышы на форме :)
Владимир (07-01-2003 11:54:00)
// Если годиться — то можно в событии формы 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)
А можно и так: TPoint cPt; GetCursorPos(&cPt); Label2->Caption = IntToStr(cPt.x) +" : "+ IntToStr(cPt.y); // абсолютная позиция Label3->Caption = IntToStr(cPt.x-Left) +" : "+ IntToStr(cPt.y-Top); // относительно формы