Hotkey

[Alexander]

Hallo
ich benutze die Komponente THotkey, nun möchte ich gerne mal wissen, wie ich solche HOtkey in Strings umwandeln kann. gibt es da vielleicht irgentwie sowas wie HotkeytoString oder sowas??
Danke schon mal!
//Nachtrag:
ich bräuchte auch eine Funktion, die diese wieder zeurück in Hotkeys umwandelt. wäre nett, wenn ich was für mich hättet.

[Christian Seehase]

Moin Alexander,

schau Dir doch mal in der Delphi Hilfe die Funktionen ShortCutToText, ShortCutToKey und TextToShortCut an.

BTW: THotKey.HotKey ist vom Typ TShortCut.

[Alexander]

Hallo danke,
aber wenn ich die Funktion ShortCutToText nutze, so sagt er dass er diesen Bezeichner nicht kenne. Muss man noch eine Unit dafür einbinden?

[Christian Seehase]

Moin Alexander,

die Funktion steht in der Unit Menues.

BTW:
Wenn Dir ein Begriff angemeckert wird, kannst Du einfach mal daraufgehen und dann F1 drücken.
Gibt's die Funktion/den Begriff, so wird Dir links oben auf der Hilfeseite die zugehörige Unit angzeigt.

[Alexander]

danke schön, funktioniert!!!

[Alexander]

ICh habe doch noch mal eine Frage und zwar möchte ich einen systemweiten Hotkey registrieren lassen. ICh denke, dass mit dem Registrieren, Regieren und wieder löschen kriege ich wohl hin. Nur habe ich Probleme den Hotkey so umzuwandeln, dass er in diese Funktion passt:

Code:

RegisterHotKey(Handle, GlobalAddAtom(name),  hier müsste die Tasten STRG, ALT, usw rein, und hier die ganz normalen, wie A, F1);

Wie bekomme ich jetzt den Hotkey, der in der KOmpnente THotkey steht darein???

[Christian Seehase]

Moin Alexander,

ausprobiert hab' ich's nicht, aber diese Funktion müsste Dir weiterhelfen:

Code:

[b]procedure[/b] ConvertPascalShortCut([b]const[/b] p_scIN : TShortCut;[b]var[/b] p_dwModifiers : DWORD;[b]var[/b] p_dwVirtualKeyCode : DWORD);

[b]const[/b]
  _iModifier : [b]array[/b] [1..4] [b]of[/b] integer = (MOD_SHIFT,MOD_CONTROL,0,MOD_ALT);

[b]begin[/b]
  p_dwModifiers := p_scIN;
  [color=#000080]// Die für Modifier entscheidenden Stellen herausfiltern[/color]
  p_dwModifiers := p_dwModifiers [b]and[/b] $0000FF00;
  [color=#000080]// an die richtige Stelle schieben[/color]
  p_dwModifiers := p_dwModifiers [b]shr[/b] 14;
  [color=#000080]// und den richtigen Modifier aus der Tabelle holen[/color]
  p_dwModifiers := _iModifier[p_dwModifier];
  [color=#000080]// Virtual Key herausfiltern[/color]
  p_dwVirtualKeyCode := p_scIN [b]and[/b] $000000FF;
[b]end[/b];

Die Umwandlung des Modifiers kann man auch in einer Zeile unterbringen, ich hab's aber mal der Übersicht halber ein wenig weiter aufgedröselt.

[Alexander]

mhm danke erstmal,
dennoch kann ich damit noch nciht wirklich was anfangen. Ich versteh die Procedure enfach nciht. Wie sieht das denn nacher aus, in Verbindung mit der THotKey und meiner obigen Funktion, zum eintragen der Hotkeys?
Ich danke schon mal vorweg!

[Christian Seehase]

Moin Alexander,

für RegisterHotkey brauchst Du ja den Wert für den Modifier und den Virtellen Tastecode.

Der Prozedure übergibst Du als Parameter für p_scIN den Wert der Eigenschaft Hotkey einer Variablen vom Typ THotKey, und erhältst dann als Rückgabewert in den Variablen die für RegisterHotkey erforderlichen Werte.

Da es sich um zwei getrennte Werte handelt, konnte es keine Funktion sein, bzw. dann wär's noch ein wenig umfangreicher geworden.

BTW:
Mir ist gerade aufgefallen, dass die Funktion noch einen schweren Fehler aufweist.
Ich hab' vergessen, dass es ja auch mehrere Modifier gleichzeitig sein können. :oops:
Wird noch korrigiert.
Das heisst: Du kannst Du Prozedur nur für HotKeys verwenden, die nur ALT, CTRL oder SHIFT als Modifier verwenden. Kombinationen werden nicht berücksichtigt.

[Christian Seehase]

Moin Alexander,

hiermit sollte es jetzt gehen.
Übergeben wird, wie gehabt, THotKey.Hotkey, der Rückgabewert ist von einem selbst definierten Typ, der zwei Felder enthält, eines für die Modifier Kombination, das andere für den virtuellen Tastencode.

Code:

[b]type[/b]
  TcsWinHotKey =
    [b]packed[/b] [b]record[/b]
      dwModifier : DWORD;
      dwVK       : DWORD;
    [b]end[/b];

Code:

[b]function[/b] ConvertPascalShortCut([b]const[/b] p_scIN : TShortCut) : TcsWinHotKey;

[b]const[/b]
  _iModifier : [b]array[/b] [0..7] [b]of[/b] integer = (
      0,
      MOD_SHIFT,
      MOD_CONTROL,
      MOD_SHIFT [b]or[/b] MOD_CONTROL,
      MOD_ALT,
      MOD_SHIFT [b]or[/b] MOD_ALT,
      MOD_CONTROL [b]or[/b] MOD_ALT,
      MOD_SHIFT [b]or[/b] MOD_CONTROL [b]or[/b] MOD_ALT
      );

[b]begin[/b]
  Result.dwModifier := p_scIN;
  [color=#000080]// Die für Modifier entscheidenden Stellen herausfiltern[/color]
  Result.dwModifier := Result.dwModifier [b]and[/b] $0000FF00;
  [color=#000080]// an die richtige Stelle schieben[/color]
  Result.dwModifier := Result.dwModifier [b]shr[/b] 14;
  [color=#000080]// und den richtigen Modifier aus der Tabelle holen[/color]
  Result.dwModifier := _iModifier[Result.dwModifier];
  [color=#000080]// Virtual Key herausfiltern[/color]
  Result.dwVK := p_scIN [b]and[/b] $000000FF;
[b]end[/b];