Hotkey

[xZise]

Ich wollte mir 4 Hotkeys registieren.
Nur dummerweise scheint es nicht zu gehen...

Delphi-Quellcode:

procedure TfrmMain.Settings1Click(Sender: TObject);
var
  sc : TShortcutArray;
  i : Integer;
  Modifiers : Uint;
  Key : Word;
begin
  sc := frmSettings.ShowModal;
  for i := 1 to High(sc) do begin
    ShortCutToHotKey(sc[i], Key, Modifiers);
    hotkeyIDs[i] := GlobalAddAtom(PChar('hk' + IntToStr(i)));
    if not RegisterHotKey(Handle, hotkeyIDs[i], Modifiers, Key) then
      Showmessage('Can''t register hotkey ' + ShortCutToText(sc[i]) + '.');
  end;               
end;

procedure ShortCutToHotKey(HotKey: TShortCut; var Key : Word; var Modifiers: Uint);
var
  Shift: TShiftState;
begin
  ShortCutToKey(HotKey, Key, Shift);
  Modifiers := 0;
  if (ssShift in Shift) then
    Modifiers := Modifiers or MOD_SHIFT;
  if (ssAlt in Shift) then
    Modifiers := Modifiers or MOD_ALT;
  if (ssCtrl in Shift) then
    Modifiers := Modifiers or MOD_CONTROL;
end;

Die Hotkey sind:
<strg> + <o>
<strg> + <s>
<strg> + <alt> + <r>
<strg> + <alt> + <c>

[Sunlight7]

Hallo!

Zitat von xZise:

Nur dummerweise scheint es nicht zu gehen...

Hmm, das war ne sehr präzise Fehlermeldung

Was sagt der GetLastError?
Ich hab das kompiliert, es funktioniert ohne Fehler...

Was mir aber auffiel ist, die Hot-Keys werden erst gesetzt, wenn man das Formular frmSettings schließt (Oh Wunder ).

Grüßle!

[xZise]

Zitat von Sunlight7:

Was sagt der GetLastError?

Wie komme ich daran?

Zitat von Sunlight7:

Was mir aber auffiel ist, die Hot-Keys werden erst gesetzt, wenn man das Formular frmSettings schließt (Oh Wunder ).

Ja, scheint wohl so zu sein.
Und was mir auffiel, die frmSettings ist eine "Zusatzform", und frmMain bleibt erhalten (Oh Wunder ).

PS: Siehe Prozedurheader

[edit]Wow Neue Erkenntnisse nach langen Testen (vielleicht wichtig):
Ich habe schon wo anders (beim Start des Programms) ShortCuts angelegt.
Und dort funktioniert es auf jeden fall dahingehend Problemlos, dass die Funktion "true" zurückgibt...[/edit]

[xZise]

Problem behoben!

Ich hatte im Header das  message WM_HOTKEY; vergessen
Jetzt funktioniert es auch alles wunderbar

[Sunlight7]

Zitat von xZise:

Zitat von Sunlight7:

Was sagt der GetLastError?

Wie komme ich daran?

Das meinste jetzt aber net ernst

Edit: Nächste mal zeig auch den Quelltext, wo der Fehler drin steckt

[xZise]

Man muss wohl alles wissen um Fragen zu stellen

[Christian Seehase]

Moin Fabian,

vielleicht wird es so deutlicher: GetLastError

BTW:
Den Klartext eines Fehlercodes kann man sich meist so
ShowMessage(SysErrorMessage(GetLastError)); anzeigen lassen.

[Sunlight7]

@xZise: Hmm, weißt Du das jetzt echt net, oder wollst mich zum Narren halten?