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

1 vote475 views4 answers
"nickolasmin"
Delphi
0 vote384 views1 answer
Inputbox delphi
Delphi
0 vote416 views1 answer
Delphi calculator
Delphi
0 vote373 views1 answer
Bootstrap 4 form modal popup
Delphi
0 vote393 views1 answer
How to validate if the text in edit has numbers in and to show a message if it has in delphi
Delphi
0 vote451 views1 answer
Hello world in delphi
Delphi
0 vote395 views1 answer
How to use incyear in delphi
Delphi
3 votes416 views1 answer
Flash messages using boot strap
Delphi
0 vote410 views1 answer
Types of message box C#
Delphi
0 vote411 views1 answer
Delphi fullscreen
Delphi