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

8 votes399 views4 answers
Bootstrap display error message
Delphi
0 vote243 views1 answer
Hello world in delphi
Delphi
0 vote266 views1 answer
How to insert apostrophe in delphi string
Delphi
0 vote224 views1 answer
INSERT into syntax error in delphi
Delphi
0 vote273 views1 answer
Duplicate ' in string delphi
Delphi
19 votes425 views2 answers
Download jupyter for linux
Delphi
0 vote214 views1 answer
Inputbox delphi
Delphi
0 vote227 views1 answer
Delphi dynamic array count
Delphi
0 vote294 views1 answer
Delphi calculator
Delphi
1 vote401 views4 answers
"nickolasmin"
Delphi