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

15 votes222 views5 answers
Belle delphine
Delphi
1 vote224 views1 answer
Case delphi
Delphi
6 votes155 views8 answers
React -slick
Delphi
0 vote219 views1 answer
Delphi copiarcaracter string
Delphi
0 vote183 views1 answer
Remove unnecessary packages raspi pixel
Delphi
0 vote186 views1 answer
Delphi Tidhttp error could
Delphi
1 vote234 views3 answers
Bootstrap cards with image on the right side
Delphi
19 votes226 views2 answers
Download jupyter for linux
Delphi
0 vote198 views1 answer
Delphi fullscreen
Delphi
0 vote212 views1 answer
Delphi calculator
Delphi