| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Общие вопросы > Как определить координаты курсора мыши |
| Автор: neutrino 11.10.2002, 20:38 |
| В смысле от начала верхнего левого угла монитора. Не хотелось бы пользоваться функциями типа: function CtrlLeft(Child: TWinControl): Integer; begin if Child.Parent <> nil then Result := Child.Parent.Left+CtrlLeft(Child.Parent); end; procedure TButton.OnMouseMove(Sender: ... ;X, Y:Integer); begin Self.Caption := Format("The mouse cursor position is: (%d, %d)", [X+CtrlLeft(Button), Y+CtrlTop(Button)]); end; P.S. Функция CtrlTop такая как и CtrlLeft. P.P.S. Этот метод я "от фанаря" написал, вопрос - есть ли такая функция готовая? |
| Автор: rhf 11.10.2002, 21:36 |
| getCorsorPos() |
| Автор: Mikel 11.10.2002, 21:41 |
| GetCursorPos(var P:TPoint) |
| Автор: Song 11.10.2002, 21:57 |
| Mouse.CursorPos() |
| Автор: neutrino 13.10.2002, 19:13 |
| Спасибо всем за ответы. Прошу прошения у модератора, я искал эту тему в ФАКе, но, видимо, проскочил. |