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

5 votes412 views3 answers
Copy function delphi
Delphi
0 vote370 views1 answer
How write pi in delphi
Delphi
0 vote346 views1 answer
Ceil function delphi
Delphi
0 vote310 views1 answer
Inputbox delphi
Delphi
0 vote333 views1 answer
Free array Delphi 7
Delphi
0 vote301 views1 answer
Instagram bot python
Delphi
0 vote322 views1 answer
Password in delphi edit
Delphi
0 vote303 views1 answer
Bootstrap 4 form modal popup
Delphi
0 vote338 views1 answer
React replace object in array
Delphi
8 votes362 views4 answers
Bootstrap display error message
Delphi