delphi向控件发送消息，全选、复制、黏贴，sendmessage

delphi向控件发送消息，全选、复制、黏贴，sendmessage

  CEFWindowParent1.SetFocus ;
  SendMessage(CEFWindowParent1.Handle,EM_SETSEL,0,-1);
    SendMessage(CEFWindowParent1.Handle, WM_COPY, 0, 0);
   SendMessage(RichEdit1.Handle, WM_Paste, 0 , 0 );