Tastenkombination abfangen und anderes Zeichen senden

[NetSonic]

Zitat von himitsu:

PS:
Handle=False und den Zeichencode direkt im Msg ändern.

Habe die Funktion jetzt umgestellt:

Delphi-Quellcode:

procedure TMyForm.OnAppMsg(var Msg: TMsg; var Handled: Boolean);
begin
     Handled := False;
     if (Msg.message = WM_KEYDOWN) then
     begin
          if (GetKeyState(VK_CONTROL) < 0) and (Msg.wParam = Ord('A')) then
          begin
               SendMessage(Msg.hwnd, WM_KEYDOWN, ord('i'), 0);
               SendMessage(Msg.hwnd, WM_KEYUP, ord('i'), 0);
          end;

          if (GetKeyState(VK_CONTROL) < 0) and (Msg.wParam = Ord('O')) then
          begin
               //Handled := True;
          end;
     end;
end;

Trotzdem erfolgt keine Übergabe. Wenn ich mir den Msg.HWND ausgeben lasse, enthält dieser je Steuerelement auch den entsprechenden Wert, passieren tut aber nichts.