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.
