Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Координаты Mouse?


Автор: Spawn 7.6.2002, 20:05
Существует ли способ узнать координаты мышки в том положении, в котором она находится на данный момент?

Автор: Wowa 7.6.2002, 20:17
Цитата(Spawn @ 07.6.2002, 19:05)
Существует ли способ узнать координаты мышки в том положении, в котором она находится на данный момент?

существует.

Имхо, уже обсуждалось на форуме - поищи. Не найдешь - пиши :)

Автор: Vit 7.6.2002, 20:41
См. Объекты Screen и Mouse

Автор: Over G 7.6.2002, 20:42
Функция GetCursotPos(x,y), где у и х - координаты!

Автор: Spawn 7.6.2002, 21:37
Скожите хотя бы часть кода, а то я начал заниматься Delphi совсем недавно и не так уж хорошо в етом разбираюсь.

Автор: Song 7.6.2002, 21:49
Часть код Вам привёл Over G.
Как правило, один способ всегда 100%-ный, пишите этот пример и нажмаете на нём Ctrl+F1

Автор: Spawn 7.6.2002, 21:55
Цитата(Song @ 07.6.2002, 22:49)
Часть код Вам привёл Over G.
Как правило, один способ всегда 100%-ный, пишите этот пример и нажмаете на нём Ctrl+F1

Я сразу так и сделал, но дело в том, что я ни разу еще не встречался с типом TPoint и поетому у меня возникли затруднения;
Обьясните хоть тогда, что ето за тип, а то хелп у меня на английском и я половину того, что там написано не понял(((((

Автор: Vit 7.6.2002, 22:01
Поставь этот код на обработчик onMouseMove

Код

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 caption:=Inttostr(mouse.CursorPos.x)+'  '+Inttostr(mouse.CursorPos.y);
end;


Тип TPoint очень прост:

t:TPoint;

t.x - значение по абсцисс
t.y - значение по ординат


PS. Конечно именно в этом обработчике можно сразу узнать параметры X и Y - они просто передаются, но а я просто иллюстрировал работу с объектом mouse, этот код будет работать и в других местах.


Автор: Spawn 7.6.2002, 22:08
Цитата(Vit @ 07.6.2002, 23:01)
Поставь этот код на обработчик onMouseMove

Код

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 caption:=Inttostr(mouse.CursorPos.x)+'  '+Inttostr(mouse.CursorPos.y);
end;


Тип TPoint очень прост:

t:TPoint;

t.x - значение по абсцисс
t.y - значение по ординат


PS. Конечно именно в этом обработчике можно сразу узнать параметры X и Y - они просто передаются, но а я просто иллюстрировал работу с объектом mouse, этот код будет работать и в других местах.

Огромное спасибо :)  :)  :)  :)  :)

Автор: Goph 9.6.2002, 11:16
Цитата(Spawn @ 07.6.2002, 23:08)
Цитата(Vit @ 07.6.2002, )
Поставь этот код на обработчик onMouseMove

Код

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 caption:=Inttostr(mouse.CursorPos.x)+'  '+Inttostr(mouse.CursorPos.y);
end;


Тип TPoint очень прост:

t:TPoint;

t.x - значение по абсцисс
t.y - значение по ординат


PS. Конечно именно в этом обработчике можно сразу узнать параметры X и Y - они просто передаются, но а я просто иллюстрировал работу с объектом mouse, этот код будет работать и в других местах.

Огромное спасибо :)  :)  :)  :)  :)

Да!
Vit действительно знает свое дело! :)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)