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

3 votes433 views2 answers
Get current date delphi
Delphi
5 votes440 views3 answers
Copy function delphi
Delphi
3 votes322 views1 answer
Flash messages using boot strap
Delphi
0 vote411 views1 answer
How write pi in delphi
Delphi
0 vote297 views1 answer
Delphi check if key pressed is enter
Delphi
0 vote232 views1 answer
Set vfat label
Delphi
11 votes434 views3 answers
Practicing python
Delphi
0 vote233 views1 answer
Delphi dynamic array count
Delphi
0 vote216 views1 answer
Mongoose schema type double
Delphi
0 vote218 views2 answers
Eval javascipt
Delphi