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 vote233 views1 answer
Delphi calculator
Delphi
19 votes263 views2 answers
Download jupyter for linux
Delphi
0 vote236 views1 answer
Delphi check if key pressed is enter
Delphi
1 vote247 views1 answer
Case delphi
Delphi
6 votes249 views1 answer
Delphi array
Delphi
0 vote233 views1 answer
Delphi copiarcaracter string
Delphi
1 vote253 views3 answers
Bootstrap cards with image on the right side
Delphi
0 vote161 views1 answer
Inputbox delphi
Delphi
4 votes123 views1 answer
How to find the length of a string delphi
Delphi
4 votes255 views2 answers
Copy delphi
Delphi