Question

I have been trying to register 3 hotkeys.
I followed this example (or this).

The code is working IF I register a single hotkey.
However, if I try to register 3 hotkeys, only the last registered one is working:

procedure TFrmSettings.FormCreate;
begin
 atomN:= GlobalAddAtom(pchar('atomN'));    
 atomT:= GlobalAddAtom(pchar('atomT'));
 atomH:= GlobalAddAtom(pchar('atomH'));
end;


procedure TFrmSettings.test1;
begin
 RegisterHotShortCut(Handle, atomN, hotN.HotKey);        // first registered 
 RegisterHotShortCut(Handle, atomH, hotH.HotKey);        // second registered 
 RegisterHotShortCut(Handle, atomT, hotT.HotKey);        // third - only this works
end;

RegisterHotShortCut is declared in the web page above mentioned.

function RegisterHotShortCut(const h:THandle; const Atom: integer; const ShortCut: TShortCut): Boolean;
VAR
  key : Word;
  Shift: TShiftState;
begin
  Windows.UnregisterHotKey(h, Atom);                                                    
  ShortCutToKey(ShortCut, key, shift);
  Result:= RegisterHotKey(h, Atom, ShiftState2Modifier(Shift), key);
end;

If in the code above, I comment the last line, then the previous hotkey (hotH) is working. This means that I declared everything right but the last hotkey takes control over (unregisters) the others.

Or saying it in other way, pressing the key combination for the for first registered shortcuts do not make the program to enter the TFrmSettings.HotyKeyMsg(VAR msg: TMessage) procedure.

Any hints?
Thanks.

---

Edit1:

1. There are simple snippets that seems to work for other but I really need to let the user to change the shortcut so I need the ShortCutToKey procedure.

2. I should declare an atom for each global shortcut. Right?

---

Edit2:
SOLVED
The above code fails ONLY if I use the “GlobalAddAtom” function. If instead of atoms I use just numbers 1, 2 and 3, the code works. If I use 4,5,6, the code fails again.
Problem (semi) solved.

Answer 1

SOLVED The above code fails ONLY if I use the “GlobalAddAtom” function. If instead of atoms I use just numbers 1, 2 and 3, the code works. If I use 4,5,6, the code fails again. Problem (semi) solved.