Hotkey

[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

[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.