VPF::Как определить координаты курсора мыши

neutrino

Дата 11.10.2002, 20:38 (ссылка)

(нет голосов)

Загрузка ...

Gothic soul

Профиль
Группа: Модератор
Сообщений: 3041
Регистрация: 25.3.2002
Где: Верхняя Галилея, Кармиэль

Репутация: нет
Всего: 62

В смысле от начала верхнего левого угла монитора.
Не хотелось бы пользоваться функциями типа:

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. Этот метод я "от фанаря" написал, вопрос - есть ли такая функция готовая?

--------------------

The truth comes from within ...

Покойся с миром, Vit

rhf

Дата 11.10.2002, 21:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 51
Регистрация: 13.8.2002

Репутация: нет
Всего: нет

getCorsorPos()

Mikel

Дата 11.10.2002, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 882
Регистрация: 30.3.2002
Где: Саратов

Репутация: 1
Всего: 2

GetCursorPos(var P:TPoint)

--------------------

...so remember, it's better to burn out than to fade away

Song

Дата 11.10.2002, 21:57 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4

Mouse.CursorPos()

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

neutrino

Дата 13.10.2002, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Gothic soul

Спасибо всем за ответы.
Прошу прошения у модератора, я искал эту тему в ФАКе, но, видимо, проскочил.

--------------------

The truth comes from within ...

Покойся с миром, Vit

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »