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 vote262 views1 answer
Password in delphi edit
Delphi
2 votes299 views1 answer
Delphi basics generating random number
Delphi
0 vote272 views1 answer
Set vfat label
Delphi
-1 vote279 views1 answer
Delphi if statement
Delphi
0 vote240 views2 answers
Eval javascipt
Delphi
19 votes302 views2 answers
Download jupyter for linux
Delphi
0 vote259 views1 answer
Remove unnecessary packages raspi pixel
Delphi
0 vote249 views1 answer
Inputbox delphi
Delphi
3 votes242 views1 answer
Flash messages using boot strap
Delphi
0 vote225 views1 answer
How to end a program in delphi
Delphi