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 vote248 views1 answer
Delphi draw antialiased line
Delphi
0 vote207 views1 answer
How to check if something is only numbers in delphi
Delphi
0 vote224 views1 answer
Delphi dynamic array count
Delphi
1 vote245 views3 answers
Bootstrap cards with image on the right side
Delphi
0 vote213 views1 answer
Ceil function delphi
Delphi
0 vote184 views1 answer
Types of message box C#
Delphi
0 vote222 views1 answer
How to insert apostrophe in delphi string
Delphi
6 votes319 views1 answer
Delphi array
Delphi
0 vote161 views1 answer
How to end a program in delphi
Delphi
0 vote198 views1 answer
Delphi Tidhttp error could
Delphi