Как узнать состояние кнопки мыши без хука.

← →
HF-Trade © (2006-02-16 11:39) [0]

Как можно узнать состояние кнопки мыши если она находится не над формой?
Нужно чтобы при нажатии средней кнопки выполнялось определенная процедура, можно как нить узнать что кнопка была нажата без использования хука на мышь?

← →
КаПиБаРа © (2006-02-16 12:03) [1]

SetCapture?

← →
КиТаЯц © (2006-02-16 12:06) [2]

Было же недавно.... Дублирую:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin case Button of mbLeft: showmessage("Левая"); mbRight: showmessage("Правая"); mbMiddle: showmessage("Средняя"); end; end;

← →
HF-Trade © (2006-02-16 12:18) [3]

> КиТаЯц ©

Это обработчик фомы, а если она у меня свернута, а мне надо знать была ли нажата мышь в другом приложении?

> Как можно узнать состояние кнопки мыши если она находится
> не над формой?

← →
begin...end © (2006-02-16 12:22) [4]

> Как можно узнать состояние кнопки мыши если она находится
> не над формой?

GetKeyState

← →
КиТаЯц © (2006-02-16 12:27) [5]

> HF-Trade © (16.02.06 12:18) [3]

Ага, точно...
Сорри, уже второй день вопросы наперекосяк читаю... Заработался, блин... :(

Вот, может подойдет:

procedure TForm1.Timer1Timer(Sender: TObject); begin if IsKeyDown (VK_MBUTTON) then showmessage("Ё!"); end; function IsKeyDown(c : Char) : Boolean; var vk : Integer; begin vk:=VkKeyScan(c) and $FF; if vk<>$FF then Result:=(GetAsyncKeyState(vk)<0) else Result:=False; end;

Как узнать состояние кнопки мыши без хука. Найти похожие ветки