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

4 votes130 views1 answer
How to find the length of a string delphi
Delphi
2 votes255 views1 answer
Delphi how copy works
Delphi
0 vote169 views2 answers
Css social code bootstrap 4
Delphi
0 vote210 views1 answer
Duplicate ' in string delphi
Delphi
0 vote178 views1 answer
Free array Delphi 7
Delphi
34 votes258 views2 answers
Shuffle list and print
Delphi
0 vote167 views1 answer
How to add item to listview delphi
Delphi
0 vote172 views1 answer
Delphi random letter
Delphi
0 vote269 views1 answer
Delphi draw antialiased line
Delphi
0 vote170 views1 answer
Get time in milliseconds delphi
Delphi