Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Координаты Mouse? 
:(
    Опции темы
Spawn
Дата 7.6.2002, 20:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Существует ли способ узнать координаты мышки в том положении, в котором она находится на данный момент?
PM MAIL   Вверх
Wowa
Дата 7.6.2002, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
Group Icon


Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

Репутация: нет
Всего: 290
Цитата(Spawn @ 07.6.2002, 19:05)
Существует ли способ узнать координаты мышки в том положении, в котором она находится на данный момент?

существует.

Имхо, уже обсуждалось на форуме - поищи. Не найдешь - пиши :)
PM WWW   Вверх
Vit
Дата 7.6.2002, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
См. Объекты Screen и Mouse


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Over G
Дата 7.6.2002, 20:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Функция GetCursotPos(x,y), где у и х - координаты!
PM MAIL   Вверх
Spawn
Дата 7.6.2002, 21:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Скожите хотя бы часть кода, а то я начал заниматься Delphi совсем недавно и не так уж хорошо в етом разбираюсь.
PM MAIL   Вверх
Song
Дата 7.6.2002, 21:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Sysman.ru
***


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

Репутация: 2
Всего: 4
Часть код Вам привёл Over G.
Как правило, один способ всегда 100%-ный, пишите этот пример и нажмаете на нём Ctrl+F1


--------------------
Прежде чем сказать "Невозможно", подумай, прав ли ты
PM WWW ICQ   Вверх
Spawn
Дата 7.6.2002, 21:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

Я сразу так и сделал, но дело в том, что я ни разу еще не встречался с типом TPoint и поетому у меня возникли затруднения;
Обьясните хоть тогда, что ето за тип, а то хелп у меня на английском и я половину того, что там написано не понял(((((
PM MAIL   Вверх
Vit
Дата 7.6.2002, 22:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Поставь этот код на обработчик 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, этот код будет работать и в других местах.




--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Spawn
Дата 7.6.2002, 22:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Цитата(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, этот код будет работать и в других местах.

Огромное спасибо :)  :)  :)  :)  :)
PM MAIL   Вверх
Goph
Дата 9.6.2002, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: нет
Цитата(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 действительно знает свое дело! :)


--------------------
Воображение гораздо важнее знаний!
                                (Эйнштейн)
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0880 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.