const <br> CM_GETCLIPBOARDCONTENT = WM_USER + 1;<br>procedure ClipboardMsg(var Message: TMessage); message GETCLIPBOARDCONTENT ;<br>begin<br> case Message.Msg of<br> //做你的工作 <br> else <br> Dispatch(Message)<br> end;<br>end;<br><br>SendMessage|PostMessage (richedit的句柄, CM_GETCLIPBOARDCONTENT, 0, 0);