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 votes426 views3 answers
Copy function delphi
Delphi
6 votes323 views8 answers
React -slick
Delphi
34 votes429 views2 answers
Shuffle list and print
Delphi
0 vote280 views1 answer
Delphi calculator
Delphi
0 vote415 views1 answer
Delphi draw antialiased line
Delphi
0 vote221 views1 answer
Set vfat label
Delphi
0 vote242 views1 answer
Breakpoint condition delphi
Delphi
0 vote209 views2 answers
Remove escapes from json
Delphi
0 vote205 views1 answer
Choose character from string in delphi
Delphi
0 vote221 views1 answer
Delphi dynamic array count
Delphi