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 vote405 views1 answer
Duplicate ' in string delphi
Delphi
0 vote411 views1 answer
Ceil function delphi
Delphi
0 vote333 views1 answer
Bootstrap 4 form modal popup
Delphi
0 vote351 views1 answer
How to use incyear in delphi
Delphi
1 vote466 views3 answers
Bootstrap cards with image on the right side
Delphi
0 vote369 views1 answer
Delphi calculator
Delphi
0 vote443 views1 answer
Delphi draw antialiased line
Delphi
0 vote356 views1 answer
Get time in milliseconds delphi
Delphi
0 vote361 views1 answer
Delphi fullscreen
Delphi
2 votes458 views1 answer
Delphi how copy works
Delphi