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?
