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

15 votes273 views5 answers
Belle delphine
Delphi
6 votes252 views3 answers
How to install pip in python 3.9 windows 10
Delphi
0 vote237 views1 answer
Free array Delphi 7
Delphi
0 vote231 views1 answer
Delphi Tidhttp error could
Delphi
0 vote251 views1 answer
Delphi dynamic array count
Delphi
0 vote231 views1 answer
How to add item to listview delphi
Delphi
0 vote240 views1 answer
How to check if something is only numbers in delphi
Delphi
0 vote238 views1 answer
Delphi fullscreen
Delphi
0 vote228 views1 answer
How to deacrease Time in delphi
Delphi
0 vote235 views1 answer
How to use incyear in delphi
Delphi