Hallo,
das Ord kannst Du weglassen bei
Ord(VK_CONTROL), denn es bewirkt nichts.
Delphi-Quelltext
1:
2:
| showmessage(IntToStr(Ord(VK_CONTROL)));showmessage(IntToStr(VK_CONTROL)); |
Die Ursache des Fehlverhaltens wird einen anderen Grund haben.
Ich vermute das die gesendeten Tasten nicht dort ankommen wo Du sie haben willst.
Wenn Du den Code z.B. über einen Button ausführst, hat der Button den Focus,
und der kann eben mit Strg + V nichts anfangen.
So wird es funktionieren:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.ButtonClick(Sender: TObject);
begin
Memo.SetFocus;
keybd_event(VK_CONTROL, 0, 0 , 0);
keybd_event(ord('V'), 0, 0, 0);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
keybd_event(ord('V'), 0, KEYEVENTF_KEYUP, 0);
end; |
