VPF::координаты мышки - Форум программистов

Gigabyte

Дата 15.2.2006, 12:27 (ссылка)

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

Загрузка ...

Студент-халявщик

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

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

как узнать координаты мышки на форме.

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

~FoX~

Дата 15.2.2006, 12:36 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Gigabyte, Юзай onMouseMove, а вообще поиск рулит!

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

…множественность никогда не следует полагать без необходимости…

Snowy

Дата 15.2.2006, 12:41 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Код


  ScreenToClient(Mouse.CursorPos).X;
  ScreenToClient(Mouse.CursorPos).Y;

Или более примерно:

Код


  X := Form1.ScreenToClient(Mouse.CursorPos).X;
  Y := Form1.ScreenToClient(Mouse.CursorPos).Y;

Gigabyte

Дата 15.2.2006, 12:42 (ссылка)

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

Загрузка ...

Студент-халявщик

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

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

onMouseMove е подходит т.к. когда я навожу на какойнибудь объект(картинка,кнопка) то координаты не меняются

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

~FoX~

Дата 15.2.2006, 15:03 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Gigabyte, угу и не должны smile

Тут два варианта есть:
1. Обрабатывать онМоусеМуве на всех объектах по отдельности.
2. Или делать что нить вроде вот этого:

Код


var
HookHandle: hHook;

function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
msg: PEVENTMSG;
begin
if Code >= 0 then begin
  result := 0;
  msg := Pointer(LParam);
  with Form1 do
    case msg.message of
      WM_MOUSEMOVE: Caption := IntToStr(msg.ParamL) + #32 + IntToStr (msg.ParamH);
    end;
end else
  result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
if HookHandle <> 0 then
  UnhookWindowsHookEx(HookHandle);
end;

Я ж говорю - поиск он всегда рулез smile

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

…множественность никогда не следует полагать без необходимости…

Snowy

Дата 15.2.2006, 15:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Ужас какой...
TMouse на то нам и дана. Чтоб...

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