Tastendruck im Gesamten Form erkennen!

[HHennig]

Hallo,

mit dem folgenden Code bekommst du die Tasten in der ganzen Applikation, bevor irgend eine andere Komponente sie kriegt:

type
TMyForm
.
.
procedure OnAppMsg(var Msg: TMsg; var Handled: Boolean);
end;

constructor TMyForm.Create;
begin
.
.
Application.OnMessage := OnAppMsg;
end;

.
.

procedure TMyForm.OnAppMsg(var Msg: TMsg; var Handled: Boolean);
begin
Handled := False;
if Msg.message = WM_KEYDOWN then
begin
if Msg.wParam = VK_TAB then // oder irgendeine andere Taste deiner Wahl
begin
// tue irgendwas
Handled := True;
end;

if Msg.wParam = VK_... then
begin
// tue irgendwas
Handled := True;
end;
end;
end;


Viel Erfolg!