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 votes246 views2 answers
Get current date delphi
Delphi
0 vote256 views1 answer
Breakpoint condition delphi
Delphi
3 votes257 views3 answers
Add data to json object
Delphi
0 vote246 views1 answer
Delphi copiarcaracter string
Delphi
0 vote210 views1 answer
Remove unnecessary packages raspi pixel
Delphi
0 vote276 views1 answer
How to make a shape move in delphi
Delphi
0 vote207 views2 answers
Remove escapes from json
Delphi
0 vote210 views1 answer
Mongoose schema type double
Delphi
0 vote225 views1 answer
How to check if something is only numbers in delphi
Delphi
2 votes250 views1 answer
Delphi basics generating random number
Delphi