CppWebBrowser的复制粘贴问题

找到一个方法可以动态改变它的显示内容。但我看不懂？而且这个办法要事先初始化CppWebBrowser，不太方便。  
  void   __fastcall   TForm1::SetHtml(   TCppWebBrowser   *WebBrowser,AnsiString   Html   )  
  {  
  IStream   *Stream;  
  HGLOBAL   hHTMLText;  
  IPersistStreamInit   *psi;  
   
  if(   WebBrowser->Document   ==   NULL   )  
  return;  
  hHTMLText   =   GlobalAlloc(   GPTR,   Html.Length()   +   1   );  
  if(   0   ==   hHTMLText   )   {  
  ShowMessage(   "GlobalAlloc   Error"   );  
  return;  
  }  
   
  CopyMemory(   hHTMLText,   Html.c_str(),   Html.Length()   );  
   
  OleCheck(   CreateStreamOnHGlobal(   hHTMLText,   true,   &Stream   )   );  
   
  try   {  
  OleCheck(   WebBrowser->Document->QueryInterface(   __uuidof(IPersistStreamInit),   (void   **)&psi   )   );  
  try   {  
  OleCheck(   psi->InitNew()   );  
  OleCheck(   psi->Load(Stream)   );  
  }   catch(   ...   )   {  
  delete   psi;  
  }  
  }   catch(   ...   )   {  
  delete   Stream;  
  }  
  delete   psi;  
  delete   Stream;  
  }  
   
  我是制定初始页面为“about;blank”来初始化的，但这样不能刷新了，一刷新就变成空白了！而且这个函数显示的页面无法复制粘贴，就是内容无法复制到剪贴板，谁能帮我一下？我给分！！  
  问题点数：100、回复次数：4Top

1 楼huzhangyou（信仰(http://www.libing.net.cn)）回复于 2002-05-14 20:42:11 得分 0

void   __fastcall   TMainForm::Edit_CutClick(TObject   *Sender)  
  {  
          TChildForm   *   pActiveChild=GetActiveChild();  
          if(pActiveChild!=NULL)  
                  pActiveChild->Cut();  
  }  
  //---------------------------------------------------------------------------  
   
  void   __fastcall   TMainForm::Edit_CopyClick(TObject   *Sender)  
  {  
          TChildForm   *   pActiveChild=GetActiveChild();  
          if(pActiveChild!=NULL)  
                  pActiveChild->Copy();  
  }  
  //---------------------------------------------------------------------------  
   
  void   __fastcall   TMainForm::Edit_PasteClick(TObject   *Sender)  
  {  
          TChildForm   *   pActiveChild=GetActiveChild();  
          if(pActiveChild!=NULL)  
                  pActiveChild->Paste();  
  }  
  //---------------------------------------------------------------------------  
   
  void   __fastcall   TMainForm::Edit_SelectAllClick(TObject   *Sender)  
  {  
          TChildForm   *   pActiveChild=GetActiveChild();  
          if(pActiveChild!=NULL)  
                  pActiveChild->SelectAll();  
  }  
   
  这是本人从一个朋友的软件的代码中copy过来的  
  看看能不能可以啊  
  Top

2 楼Lersh（暑片）回复于 2002-05-14 20:44:49 得分 0

可是CppWebBrowser里我怎么拦截以上事件？Top

3 楼abomb（随风而逝）回复于 2002-05-14 21:18:59 得分 0

to   huzhangyou(信仰)   ，你粘代码怎么不把子窗体的代码粘过来，呵呵Top

4 楼Jinglihui（雪狐）回复于 2002-05-27 18:51:08 得分 100

我有一点关于VCL消息机制的资料，是从网上找来的，如果想要，发email给我  
  goldbabby@163.net  
  不知道对你是否有帮助，如果没有帮助别骂我！：）我不想吃力不讨好，文章不是我写的，但是我整理的！Top

相关问题

• 代码
• html
• null
• pactivechild
• cppwebbrowser
• getactivechild
• tchildform
• hhtmltext
• olecheck
• 复制

• 帖主：Lersh
• Jinglihui

• CSDN Blog
• 技术文档
• 代码下载
• 第二书店
• 读书频道