Tastenkombination über VK_xxxxx abfragen

[mleyen]

Zitat:

EditedTxt := EditedTxt + chr(Msg.wParam);

Ähm in wParam steht doch nur die zuletzt gedrückte Taste.

Füg mal den uses die Unit "Clipbrd" hinzu und kopier folgenden Code mal in deine OnAppMsg Prozedur:

Delphi-Quellcode:

var
  Clpbrd: TClipboard;
begin
  if Msg.message = WM_KEYDOWN then
  begin // Die KeyDown-Msg brauchen wir
    if GetKeyState(VK_CONTROL) < 0 then
    begin // Wenn Strg gedrückt ist

      case Msg.wParam of
        67, 99: ShowMessage('Strg + c gedrückt'); // Das musst du schon selber implementieren ;)
        88, 120: ShowMessage('Strg + x gedrückt'); // "
        86, 118:
        begin // Strg+v | Zwichenablage in EditedTxt haun 
          Clpbrd := TClipboard.Create;
          if Clpbrd.HasFormat(CF_TEXT) then
            EditedTxt := EditedTxt + Clpbrd.AsText;
          Clpbrd.Free;
        end;
      end;

    end;
  end;
end;

Ich hoffe das hilft jetzt.