Delphi keypress ctrl+v

if (Shift = [ssCtrl]) and (Upcase(Char(Key)) = 'C') then

Delphi keypress ctrl+v

PostMessage(H, WM_PASTE, 0, 0);

Delphi keypress ctrl+v

H:= screen.ActiveForm.Handle; // .ActiveControl.Handle;
  if H <> 0 then begin
    PostMessage(H, WM_PASTE, 0, 0);
  end else Showmessage('Nincs kontroll');

Similar codes

5 votes254 views3 answers
Copy function delphi
Delphi
4 votes101 views1 answer
How to find the length of a string delphi
Delphi
2 votes247 views1 answer
Get last element of array delphi
Delphi
0 vote151 views1 answer
Get time in milliseconds delphi
Delphi
0 vote145 views1 answer
Choose character from string in delphi
Delphi
0 vote160 views1 answer
Shuffle array delphi
Delphi
0 vote161 views1 answer
Free array Delphi 7
Delphi
0 vote155 views1 answer
How to use incyear in delphi
Delphi
2 votes236 views1 answer
Delphi basics generating random number
Delphi
0 vote155 views1 answer
INSERT into syntax error in delphi
Delphi