Systemweite Hotkeys mit Zehnertastatur

Regan · Verfasst: Di 23.01.07 16:58

Hallo Freunde der 1sen und 0en,
ich wollte meinem Programm, wie Gausis Nemp, beibringen, dass es auf bestimmte Systemweite Hotkeys reagiert. Dazu habe ich mir diesen Code geholt:

markieren

Delphi-Quelltext

1:	registerHotKey(handle,3,0,hotkey2.HotKey);

Nun unterstützt die Hotkey Kompo scheinbar die Zehnertastatur nicht. Ich möchte nämlich folgende Hotkeys haben:

Strg + Shift + 0 (Zehnertastatur)
... (bis 9 auf der Zehnertastatur)

Wie bringe ich das meinem Programm bei? und wie muss ich das dann abfragen(weil ja dort Zehnertastatur steht)?

MfG
Regan

Regan · Verfasst: Mi 24.01.07 17:15 Titel: Schiebeposting

So. Ich hab schon mal geguckt,w as ich machen kann. Also hab ich schon mal das rausgefunden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.FormCreate(Sender: TObject);
begin
registerHotKey(handle,1,MOD_CONTROL or MOD_SHIFT, {hier fehlt mir die Zehnertastatur});
//... bis 9
end;

Und zum abrufen gibt es ja nichts zu beachten:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  TWMHotkey = record
    Msg: Cardinal;
    idHotKey: Word;
    Modifiers: Integer;
    VirtKey: Integer;

procedure TForm1.WmHotkey(var Msg: TMessage);
begin
  if (Msg.WParam = 1) then
  begin
    ShowMessage('Hallo');
  end;
end;

Vielleicht hat ja einer noch eine Idee.

Regan · Verfasst: Do 25.01.07 20:39

OK. Ich habs gefunden. Es ist:

markieren

Delphi-Quelltext

1:	registerHotKey(handle,1,MOD_CONTROL or MOD_SHIFT, VK_NUMPAD1);

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme