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 vote332 views1 answer
Remove unnecessary packages raspi pixel
Delphi
0 vote382 views1 answer
Delphi draw antialiased line
Delphi
0 vote348 views1 answer
Delphi check if key pressed is enter
Delphi
5 votes427 views3 answers
Copy function delphi
Delphi
0 vote322 views1 answer
Inputbox delphi
Delphi
0 vote329 views1 answer
Types of message box C#
Delphi
0 vote368 views1 answer
Breakpoint condition delphi
Delphi
4 votes299 views1 answer
How to find the length of a string delphi
Delphi
0 vote349 views1 answer
React replace object in array
Delphi
2 votes369 views1 answer
Delphi basics generating random number
Delphi