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

3 votes157 views3 answers
Add data to json object
Delphi
0 vote143 views1 answer
Delphi fullscreen
Delphi
0 vote123 views1 answer
Mongoose schema type double
Delphi
0 vote125 views1 answer
Inputbox delphi
Delphi
0 vote87 views1 answer
Instagram bot python
Delphi
0 vote144 views1 answer
Delphi dynamic array count
Delphi
6 votes86 views8 answers
React -slick
Delphi
1 vote160 views1 answer
Case delphi
Delphi
8 votes159 views4 answers
Bootstrap display error message
Delphi
0 vote134 views1 answer
Shuffle array delphi
Delphi