Hallo,
hab hier nen code schnippsel gefunden, der mit einem KeyHook events auslöset, wie unten z.B. WheelUp() und WheelDown().
Nur zum verständnis, sehe ich das richtig, das man die liste:
Delphi-Quellcode:
174 : WheelDown();
175 : WheelUp();
Weiterfühen könnte und für jeden buchstaben ein event ausführen lassen könnte?
Wenn ja, wie bekomme ich die "Codes" für andere tasten meiner tastatur?
CODE:
Delphi-Quellcode:
procedure TformMain.AppMessage(var Msg: TMsg; var Handled: Boolean);
var szKeyName: PChar;
k: string;
begin
with Msg do if (message=(WM_APP+666)) and ( wParam=13 ) then
begin
case Msg.lParam of
174 : WheelDown();
175 : WheelUp();
end;
Handled:=True;
end;
end;