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

6 votes438 views8 answers
React -slick
Delphi
0 vote387 views1 answer
Free array Delphi 7
Delphi
0 vote436 views1 answer
Duplicate ' in string delphi
Delphi
0 vote373 views1 answer
How to use incyear in delphi
Delphi
1 vote453 views1 answer
Case delphi
Delphi
0 vote415 views1 answer
Set vfat label
Delphi
0 vote380 views1 answer
Get time in milliseconds delphi
Delphi
0 vote368 views1 answer
Delphi random letter
Delphi
15 votes472 views5 answers
Belle delphine
Delphi
3 votes394 views1 answer
Flash messages using boot strap
Delphi