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 vote220 views1 answer
Free array Delphi 7
Delphi
0 vote227 views1 answer
Delphi dynamic array count
Delphi
0 vote251 views1 answer
Instagram bot python
Delphi
0 vote211 views2 answers
Eval javascipt
Delphi
2 votes428 views1 answer
Get last element of array delphi
Delphi
0 vote219 views1 answer
How to deacrease Time in delphi
Delphi
0 vote229 views1 answer
Password in delphi edit
Delphi
3 votes314 views1 answer
Flash messages using boot strap
Delphi
0 vote215 views1 answer
Choose character from string in delphi
Delphi
0 vote220 views1 answer
Delphi Tidhttp error could
Delphi