Hotkey per Button

[SaFu]

Also, wenn ich das so ausführe,

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Keybd_Event(VK_Scroll,0,0,0); // <- taste drücken
 Keybd_Event(VK_Scroll,0,KEYEVENTF_KEYUP,0); // <- taste loslassen
 Keybd_Event(VK_Scroll,0,0,0); // <- taste drücken
 Keybd_Event(VK_Scroll,0,KEYEVENTF_KEYUP,0); // <- taste loslassen
end;

Passiert bei Button nix,

Aber wenn ich es nochmal in das KeyDown Event reinschreibe und zwar so

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Keybd_Event(VK_Scroll,0,0,0); // <- taste drücken
  Keybd_Event(VK_Scroll,0,KEYEVENTF_KEYUP,0); // <- taste loslassen
  Keybd_Event(VK_Scroll,0,0,0); // <- taste drücken
  Keybd_Event(VK_Scroll,0,KEYEVENTF_KEYUP,0); // <- taste loslassen
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   Keybd_Event(VK_Scroll,0,0,0); // <- taste drücken
   Keybd_Event(VK_Scroll,0,KEYEVENTF_KEYUP,0); // <- taste loslassen
end;

funktioniert es über den Button aber es hängt in einer Schleife. Somit sollt es ja irgendwie funktionieren.


LG