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 vote175 views2 answers
Css social code bootstrap 4
Delphi
4 votes138 views1 answer
How to find the length of a string delphi
Delphi
0 vote173 views1 answer
Bootstrap 4 form modal popup
Delphi
0 vote172 views1 answer
Choose character from string in delphi
Delphi
0 vote180 views1 answer
How to use incyear in delphi
Delphi
0 vote130 views1 answer
Instagram bot python
Delphi
0 vote169 views1 answer
Mongoose schema type double
Delphi
0 vote191 views1 answer
Delphi fullscreen
Delphi
3 votes260 views3 answers
Add data to json object
Delphi
0 vote175 views1 answer
Inputbox delphi
Delphi