有没有高手？

定义了一个过程，目的：已知一个RichEdit的句柄，从剪贴板往一个RichEdit上粘贴文字，但是总出错，请给检查一下：  
  Procedure   AddMyText(Rich:hwnd);     //Rich:RichEdit的句柄    
  Const  
          sTmp='dsfdsfsdaf';  
  Var  
      hMem:HGLOBAL;  
        pStr:LPTSTR;  
  Begin  
      hMem   :=   GlobalAlloc(GHND   Or   GMEM_SHARE,   sizeof(sTmp));  
      pStr   :=   GlobalLock(hMem);  
      lstrcpy(pStr,   sTmp);  
      GlobalUnlock(hMem);  
      OpenClipboard(rich);  
      EmptyClipboard();  
      SetClipboardData(CF_UNICODETEXT,   hMem);     //-----=====出错！！！！！  
      CloseClipboard();  
      GlobalFree(hMem);  
      SendMessage(Rich,   WM_PASTE,   0,   0);  
  end; 问题点数：30、回复次数：3Top

1 楼BlueSoftEye（紫衣侠隐）回复于 2004-05-02 11:23:26 得分 0

我的系统：Win2kserverTop

2 楼fim（阿初）回复于 2004-05-02 12:34:17 得分 15

<<hMem   :=   GlobalAlloc(GHND   Or   GMEM_SHARE,   sizeof(sTmp));  
  hMem   :=   GlobalAlloc(GHND   Or   GMEM_SHARE,   Length(sTmp)+1);  
   
  Top

3 楼zousoft（菜菜鸟的战斗诗歌）回复于 2004-05-02 13:40:02 得分 15

不用那么麻烦,   hehe   给你个偷懒的方法:  
   
  RichEdit1.PasteFromClipboard;Top

相关问题

• hmem
• stmp
• rich
• pstr
• 出错
• richedit的句柄

• 帖主：BlueSoftEye
• fim
• zousoft

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载