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.

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

Ich hab keine Ahnung.

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

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)

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

Hi Deddy, leider klappt das nicht mit der Maustaste.

zusammenfalten · markieren

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?

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