delphi keypress ctrl+v
PostMessage(H, WM_PASTE, 0, 0);
delphi keypress ctrl+v
if (Shift = [ssCtrl]) and (Upcase(Char(Key)) = 'C') then
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');