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 vote399 views1 answer
How to add item to listview delphi
Delphi
3 votes409 views1 answer
Flash messages using boot strap
Delphi
0 vote381 views1 answer
Delphi Tidhttp error could
Delphi
0 vote368 views2 answers
Eval javascipt
Delphi
0 vote393 views1 answer
How to end a program in delphi
Delphi
0 vote403 views1 answer
INSERT into syntax error in delphi
Delphi
6 votes578 views1 answer
Delphi array
Delphi
0 vote385 views1 answer
How to validate if the text in edit has numbers in and to show a message if it has in delphi
Delphi
4 votes502 views2 answers
Copy delphi
Delphi
5 votes534 views3 answers
Copy function delphi
Delphi