procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Shift=[ssCtrl]) and (key=86) then showmessage('ctrl+v'); end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=86) and (ssCtrl in Shift) and not (ssShift in Shift) and not(ssAlt in shift) then edit2.Text := 'Ctrl+V'; end;
Shift: TShiftState);
begin
if (Shift=[ssCtrl]) and (key=86) then
showmessage('ctrl+v');
end;
Shift: TShiftState);
begin
if (key=86) and (ssCtrl in Shift) and not (ssShift in Shift) and not(ssAlt in shift) then
edit2.Text := 'Ctrl+V';
end;