if ((ssCtrl in Shift) AND (Key = ord('V'))) then
begin
i_xm.Clear;
str:=Trim(clipboard.AsText);
i_xm.Text:=UTF8Decode(str);
end;
if ((ssCtrl in Shift) AND (Key = ord('V'))) then
begin
i_xm.Clear;
str:=Trim(clipboard.AsText);
i_xm.Text:=UTF8Decode(str);
end;
转载于:https://www.cnblogs.com/samsonleung/p/5031848.html