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];

[Alexander]

das ging ja schnell.
Danke, ich werde es ausprobieren.

[Alexander]

So jetzt habe ich shon die erste Frage und zwar sagt er, wenn ich deine Funktion so anwende, dass es inkompatble Typen (Cardinal und TcsWinHotKey) seien.
Mein Quellcode ist dieser:

Code:

  RegisterHotKey(Handle, GlobalAddAtom(name), ConvertPascalShortCut(hotkey));

hotkey ist ein TShortCut
Woran könnte es liegen????
Aber sonst müsste es doch eigentlich funktionieren.

[Christian Seehase]

Moin Alexander,

ich sagte doch, dass ich das erst als Prozedur gestrickt hatte, da man ja zwei Rückgabewerte braucht, nämlich den Modifier und die Virtual Key Code. ;)
Bei der Funktion hab' ich die nur in einem neuen Typ zusammengefasst.
Die musst Du dann natürlich getrennt an die API übergeben.
TcsWinHotKey ist ja ein selbst erdachter Typ, davon kann die API nichts wissen.

Code:

[b]var[/b]
  whkWork : TcsWinHotKey;

[b]begin[/b]
  whkWork := ConvertPascalShortCut(hotkey);
  RegisterHotKey(Handle, GlobalAddAtom(name), whkWork.dwModifier,whkWork.dwVK);
[b]end[/b];

[Alexander]

nocheinmal danke, da habe ich wohl was überlesen, es funktioniert aber leider immer noch nicht. Tastenkombinationen scheint er wohl nicht richtig umzusetzen. Also wenn ich den ShortCut STRG+1 nehme funktioniert es nicht, wenn man nur 1 oder einen Buchstaben nimmt funktioniert es. Weißt du vielleicht warum????

[Christian Seehase]

Moin Alexander,

ich wollte mein "Machwerk" jetzt mal testen, und bin dabei über das Phänomen gestolpert, dass, bei mir, TextToShortCut nur bei einzelnen Zeichen, ohne Modifier, einen Wert zurückliefert. (also so ähnlich, wie von Dir beschrieben)
Ich werd' mir mal die Sourcen durchsehen, warum das so ist, bzw. was ich da falsch mache.
Eine Lösung sollte sich aber finden lassen.

[Alexander]

danke, wäre nett, wenn du dir das noch einmal anschauen könntest

[Alexander]

ich glaube er verwechselt STRG und ALT. Leider weiß ich im Moment nicht, ob es noch mehr Verwechselungen gibt und ob das wirklich der Fehler ist. Leider weiß ich nicht, was nun an deinem Code umändern muss. Hast du da eine Idee.
//Nachtrag:
Tastenkombinationen der Art STRG+ALT+1 gehen glaub ich auch nicht. Wäre toll wenn du da eine Idee hättest.

[Christian Seehase]

Moin Alexander,

statt

Code:

  [color=#000080]// an die richtige Stelle schieben[/color]
  Result.dwModifier := Result.dwModifier [b]shr[/b] [color=red]14; // Falsch[/color]

muss es

Code:

  [color=#000080]// an die richtige Stelle schieben[/color]
  Result.dwModifier := Result.dwModifier [b]shr[/b] [color=red]13; // Richtig[/color]

heissen :?

Ich hatte die falschen Konstanten ausgewertet :oops:

[Alexander]

Vielen Dank, jetzt klappt alles!!

[edit=Daniel B]Doppelpost gelöscht![/edit]

[Christian Seehase]

Moin Alexander,

wichtiger Nachtrag:

Du solltest GlobalAddAtom nicht direkt in der Funktion aufrufen, sondern, z.B. im initialization Abschnitt, da es auch wieder, mit GlobalDeleteAtom (dann im finalization Abschnitt), aus der Tabelle gelöscht werden muss.
Sonst bleiben die Einträge bis zum Reboot erhalten.

[Alexander]

ich lösche den Shortcut so:

Code:

UnRegisterHotKey(Handle, GlobalAddAtom(PChar('test'+IntToStr(i))))

sollte ja auch so gleich gelöscht werden, oder??