请教各位： 如何打开TWebbrower的Select,Seclec Al,Copy,Paste 等功能

http://www.swissdelphicenter.ch/en/showcode.php?id=477

{ 
 This Code allows you to use Ctrl C/Ctrl V and 
 drag&drop in a TWebbrowser 
}     uses 
  {...,}ActiveX;     // Put this Code at the end of your unit: 
// Diesen Code am Ende der Unit anfügen:     initialization 
  OleInitialize(nil);     finalization 
  OleUninitialize; 
end.     

--- 歡迎光臨 KTop 研究院

这个方法我也试过啦，由于网页的源码当中增加了屏蔽这几种功能的代码，鼠标左右键根本没有反应，还有没有其他的方法，多谢！

gzyanyu 你好: //1.把焦點移到WebBrowser1上面 if WebBrowser1.Document<>nil then with (WebBrowser1.Application) as Ioleobject do DoVerb(OLEIVERB_UIACTIVATE,nil,WebBrowser1,0,Handle,GetClientRect); //2.用模擬鍵 Ord(#17)-->Ctrl ,Ord(#86)-->V keybd_event(Ord(#17),0,0,0); keybd_event(Ord(#86),0,0,0); keybd_event(Ord(#86), 0, KEYEVENTF_KEYUP, 0); keybd_event(Ord(#17), 0, KEYEVENTF_KEYUP, 0);

------
======================
昏睡~
不昏睡~
不由昏睡~

ko兄：你好 小弟进行测试了，好像不成功，请你能不能详细的说明一下，万分感谢！

gzyanyu 你好: 我的方式,是將FOUSE指向From1的TWebbrower1 再下達模擬滑鼠動作 由於你是要解開別人對網頁下的禁固,所以此法應該無效 一般再網頁開啟的時候,就會載入控制滑鼠或鍵盤的code,通常都寫在asp,php java上面所以要解開的機會不大

------
======================
昏睡~
不昏睡~
不由昏睡~

在网葉上同時按下ctrl N 鍵。就會出現一個同樣的网葉，可以察看復制、粘貼等操作。趕快試試看哦... 發表人 - maureen 於 2003/11/11 21:18:15 發表人 - maureen 於 2003/11/11 21:19:12

請試試看在网葉上同時按下ctrl 和 N 鍵。

maureen 你好 是可以出現一個同樣的网葉，但是如何察看復制、粘貼等操作还是搞不明白，能不能修改注册表来解决问题，还请指教。

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.