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 votes256 views1 answer
Delphi array
Delphi
0 vote173 views1 answer
How to use incyear in delphi
Delphi
2 votes252 views1 answer
Delphi how copy works
Delphi
0 vote170 views2 answers
Eval javascipt
Delphi
0 vote136 views1 answer
How to end a program in delphi
Delphi
3 votes266 views2 answers
Get current date delphi
Delphi
0 vote268 views1 answer
Delphi draw antialiased line
Delphi
0 vote203 views1 answer
How to insert apostrophe in delphi string
Delphi
2 votes259 views1 answer
Delphi basics generating random number
Delphi
2 votes271 views1 answer
Get last element of array delphi
Delphi