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 vote355 views1 answer
Delphi calculator
Delphi
0 vote330 views1 answer
How to validate if the text in edit has numbers in and to show a message if it has in delphi
Delphi
0 vote343 views1 answer
How to add item to listview delphi
Delphi
0 vote396 views1 answer
Delphi draw antialiased line
Delphi
0 vote354 views1 answer
How to check if something is only numbers in delphi
Delphi
0 vote389 views1 answer
Duplicate ' in string delphi
Delphi
34 votes389 views2 answers
Shuffle list and print
Delphi
3 votes399 views3 answers
Add data to json object
Delphi
1 vote418 views3 answers
Bootstrap cards with image on the right side
Delphi
0 vote366 views1 answer
Set vfat label
Delphi