Also ich habe das jetzt so umgesetzt, funzt aber net:
(PS: Hotkeys)
Delphi-Quellcode:
[...]
type
TWMHotkey = record
Msg: Cardinal;
idHotKey: Word;
Modifiers: Integer;
VirtKey: Integer;
end;
const ID = $FF;
type
TForm1 = class(TForm)
[...]
private
[...]
procedure WMHotKey(var Msg: TWMHotKey); Message WM_HOTKEY;
[...]
procedure TForm1.WMHotKey(Var Msg: TWMHotkey);
begin
case Msg.IdHotKey of
ID : Showmessage('test');
ID + 1 : Showmessage('test2');
end;
inherited;
end;
procedure TForm1.GoClick(Sender: TObject);
var
i : Integer;
ok: longbool;
begin
[...]
for i := 0 to 8 do begin
ok := RegisterHotKey(Form1.Handle, ID + i, MOD_control, Ord(i));
if not ok then
Showmessage('Tastenkombination <Strg> + <' + IntToStr(i) + '> nicht möglich zu setzen!');
end;
end;
[...]
end.
Das ist nach
dem Tutorial erstellt.
Ich bekomme weder eine Nachricht, dass es nicht gesetzt werden konnte, noch dass die Tasten gedrückt wurden.
Ich möchte die Tastenkombination:
<Strg> + <0 (bis) 8>