Скачать: CL | DM;

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

← →
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]

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

---

← →
HF-Trade ©   (2006-02-16 12:34) [6]

> begin...end ©

Чет я ступил))) Я думал там тока для клавы)))
GetAsyncKeyState подошло))))

---

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

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

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.036 c