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

0 vote193 views2 answers
Eval javascipt
Delphi
1 vote386 views4 answers
"nickolasmin"
Delphi
2 votes409 views1 answer
Get last element of array delphi
Delphi
0 vote189 views1 answer
Mongoose schema type double
Delphi
0 vote272 views1 answer
How to end a program in delphi
Delphi
11 votes408 views3 answers
Practicing python
Delphi
0 vote398 views1 answer
Delphi draw antialiased line
Delphi
0 vote197 views1 answer
Delphi random letter
Delphi
5 votes415 views3 answers
Copy function delphi
Delphi
4 votes398 views2 answers
Copy delphi
Delphi