Tastenkombinationen ohne, das Fenster im Focus ist

[xZise]

- Okay... Dann baue ich es in OnCreate und werde aber eine andere Bedingung setzten bei der Abfrage
- Ord gibt doch den ASCII-Wert eines Chars wieder oder? Also entweder ohne Ord und dann i + 48 oder i in ein Char umwandeln und dann mit Ord ermitteln?
- Unregister ist engebaut danke

[edit]Eine Frage: Da ich mit <strg> + <0 (bis) 6> den ItemIndex (-1 bis 5) bestimme, wollte ich eigentlich ID - 1 machen, aber das geht irgendwie nicht.

Delphi-Quellcode:

procedure TForm1.WMHotKey(Var Msg: TWMHotkey);
begin
  if not Go.Visible then
    case Msg.IdHotKey of
      ID..ID + 6 : Wertung.ItemIndex := ID - 1;
      ID + 7 : NextClick(Next);
      ID + 8 : PrevClick(Prev);
    end;
  inherited;
end;

[/edit]