VPF::Позиция мыши из lParam - Форум программистов

Budy

Дата 25.7.2005, 16:32 (ссылка)

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

Загрузка ...

Опытный

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

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

:Приветствую
Подскажите плиз, как отдекодировать smile

lParam и получить позицию курсора мыши вот отсюда (надеюсь знакомо smile

Код


function MyWindowProcess(Window: HWnd; Msg, WParam: Word; LParam: LongInt): LongInt; stdcall;
begin
  MyWindowProcess:=0;
  case Msg of
    WM_DESTROY: begin
                  PostQuitMessage (0);
                  Exit;
                end;
    [i][b]WM_LBUTTONDOWN: ???[/b][/i]
  end;
  MyWindowProcess:=DefWindowProc(Window, Msg, WParam, LParam);
end;

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Rrader

Дата 25.7.2005, 16:59 (ссылка)

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

Загрузка ...

Inspired =)

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

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

Чем GetCursorPos() не устраивает? smile

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

Let's do this quickly!
Rest in peace, Vit!

Rrader

Дата 25.7.2005, 17:15 (ссылка)

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

Загрузка ...

Inspired =)

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

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

Хотя, если очень надо, то:

Код


WM_LBUTTONDOWN:
  begin
    Point.X := LoWord(lParam);
    Point.Y := HiWord(lParam);
  end;

Это сообщение отредактировал(а) Rrader - 28.11.2008, 17:46

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

Let's do this quickly!
Rest in peace, Vit!

Budy

Дата 26.7.2005, 04:16 (ссылка)

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

Загрузка ...

Опытный

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

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

Rrader, сенк. GetCursor - не то, мне надо координаты на моем окне узнать.
А еще по теме, как мона узнать размер окна при WM_SIZE? ЗЫ.думаю также, щас попробую.

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Rrader

Дата 26.7.2005, 07:27 (ссылка)

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

Загрузка ...

Inspired =)

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

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

Учти только, что при WM_SIZE ты получишь размеры клиентской области окна.

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

Let's do this quickly!
Rest in peace, Vit!

Budy

Дата 27.7.2005, 19:54 (ссылка)

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

Загрузка ...

Опытный

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

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

Rrader, угу, есть контакт.
Есчо вопрос по теме, как можно наоборот закодировать и послать координаты курсора мыши через SendMessage (или PostMessage)?
Если можно, плиз несколько примеров (WM_LBUTTONDOWN, WM_MOUSEMOVE, WM_"keypress" (нажать кнопку программно для окна),...)
Заранее благодарю

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Rrader

Дата 28.7.2005, 03:55 (ссылка)

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

Загрузка ...

Inspired =)

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

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

Чтобы нажать кнопку программно, нужно ей послать сообщение BM_CLICK:

Код


SendMessage(BtnHandle, BM_CLICK, 0, 0);

Или эмулировать клик мышкой:

Код


...
function Point(X, Y: Integer): TPoint;
begin
  Result.X := X;
  Result.Y := Y;
end;
...
procedure Click(X, Y: Integer); 
var 
  Wnd: HWND; 
  TmpRect: TRect; 
  Pt: WPARAM; 
begin 
  Wnd := WindowFromPoint(Point(X,Y)); 
  GetClientRect(Wnd, TmpRect); 
  { Смотри, как получить координаты }
  Pt := X - TmpRect.Left + (Y - TmpRect.Top) shl 16; 
  SendMessage(Wnd, WM_LBUTTONDOWN, Pt, 0); 
  SendMessage(Wnd, WM_LBUTTONUP, Pt, 0); 
end;

Это сообщение отредактировал(а) Rrader - 28.11.2008, 17:48

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

Let's do this quickly!
Rest in peace, Vit!

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