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

1 vote491 views1 answer
Case delphi
Delphi
0 vote411 views1 answer
How to end a program in delphi
Delphi
0 vote404 views1 answer
Delphi Tidhttp error could
Delphi
19 votes502 views2 answers
Download jupyter for linux
Delphi
6 votes468 views3 answers
How to install pip in python 3.9 windows 10
Delphi
15 votes508 views5 answers
Belle delphine
Delphi
8 votes489 views4 answers
Bootstrap display error message
Delphi
0 vote421 views1 answer
Types of message box C#
Delphi
0 vote434 views1 answer
React replace object in array
Delphi
0 vote387 views1 answer
Bootstrap 4 form modal popup
Delphi