Office copy the text cannot paste to Edit in the text box, how to transform processing

CodePudding user response:

Can use clipboard,

1, first of all in the office copy piece (text);
2, the event code in

If the Clipboard. HasFormat (CF_TEXT) or Clipboard. HasFormat (CF_UNICODETEXT)
Then Edit1. Text:=Trim (Clipboard. AsText);