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 vote167 views1 answer
Shuffle array delphi
Delphi
0 vote196 views1 answer
Ceil function delphi
Delphi
0 vote197 views1 answer
Duplicate ' in string delphi
Delphi
0 vote156 views1 answer
Set vfat label
Delphi
4 votes112 views1 answer
How to find the length of a string delphi
Delphi
0 vote153 views1 answer
Remove unnecessary packages raspi pixel
Delphi
0 vote172 views1 answer
How to make a shape move in delphi
Delphi
0 vote156 views1 answer
Get time in milliseconds delphi
Delphi
0 vote227 views1 answer
Delphi check if key pressed is enter
Delphi
15 votes241 views5 answers
Belle delphine
Delphi