THotKey - rechte Maustaste als Hotkey setzen

[The Riddler]

Entweder bin ich blind oder blöd, aber wie kann man bitte die rechte Maustaste als Hotkey in einer THotKey-Komponente setzen? Wenn der User die rechte Maustaste drückt, soll was passieren. In der Auswahl gibt es keine Möglichkeit dazu.

[sirius]

Bist du dir sicher, dass vom System die rechte Maustaste generell als Hotkey vorgesehen ist?

[The Riddler]

Ich hab keine Ahnung.

Wäre wünschenswert wenn ich die Maustaste(n) trotzdem als Hotkey benutzen könnte.

[sirius]

Zitat von The Riddler:

Ich hab keine Ahnung.

Und sowas darf sich vor einen Rechner setzen. 8) *tztztz*

Zitat:

Wäre wünschenswert wenn ich die Maustaste(n) trotzdem als Hotkey benutzen könnte.

Da würde ich ja mal auf einen globalen Mousehook tippen.
(Edit: Außer du findest noch die rechte Maustaste als Hotkey)

[DeddyH]

RegisterHotKey erwartet doch einen virtuellen Keycode oder? Da könnte man ja VK_RBUTTON übergeben. Hab ich allerdings noch nie versucht, da mich ein solcher Hotkey vermutlich ziemlich nerven würde

[The Riddler]

Hi Deddy, leider klappt das nicht mit der Maustaste.

Delphi-Quellcode:

if cbrightmousebtn.Checked = true then ShortCutToHotKey(VK_RBUTTON, Key, Modifiers) else ShortCutToHotKey(HotKey2.HotKey, Key, Modifiers);
if cbrightmousebtn.Checked = true then Hotkey_id2 := GlobalAddAtom('VK_RBUTTON') else Hotkey_id2 := GlobalAddAtom('MyHotKey_2');
RegisterHotKey(Handle, Hotkey_id2, Modifiers, Key);

procedure ShortCutToHotKey(HotKey: TShortCut; var Key : Word; var Modifiers: Uint);
var
  Shift: TShiftState;
begin
  ShortCutToKey(HotKey, Key, Shift);
  Modifiers := 0;
  if (ssShift in Shift) then
  Modifiers := Modifiers or MOD_SHIFT;
  if (ssAlt in Shift) then
  Modifiers := Modifiers or MOD_ALT;
  if (ssCtrl in Shift) then
  Modifiers := Modifiers or MOD_CONTROL;
end;

Ich nehme das ich um einen Mouse-Hook nicht drumrum kommen werde, oder?

[DeddyH]

Wenn das so nicht klappt, fällt mir spontan auch keine andere Möglichkeit ein.