怎么Copy不上呢?(50分)

  • 主题发起人 主题发起人 MicroZeng
  • 开始时间 开始时间
M

MicroZeng

Unregistered / Unconfirmed
GUEST, unregistred user!
在浏览Html文件时,我使用了TWebBrowser_V1,它是调用IE的Active构件。
但是在其右键弹出菜单上的Copy的功能却时灵时不灵,不灵居多。
请问这是什么原因,如何解决?
 
右键弹出菜单上有"Copy"吗? 好像只有"复制背景"啊?
 
选择了一些东西后就有了.
 
you can, but before you do so, you should first let the
control get focus!
try
myweb.setfocus;
myweb.copy
except
// Showmessage('you should select something first.');
end;
 
CJ:不行, 根本没有HtmlViewer.Copy这个属性
使用HtmlViewer.OleObject.Copy也不行
怎么办呢?
 
"在浏览Html文件时,我使用了TWebBrowser_V1,它是调用IE的Active构件。
但是在其右键弹出菜单上的Copy的功能却时灵时不灵,不灵居多。
请问这是什么原因,如何解决?"
这是不是Windows的BUG?
 
我记得我COPY下来过的,COPY名字可能有问题,我忘记到底是什么了,但就是类似的方法
 
该死, 确实有问题:-(
是不是m$搞的鬼, 谁有ie5试下.
 
<A Href="lib.sdut.edu.cn">IE5.0软件由此可得,特别的大!</A>
 
重贴一下
<A Href="http://www.sdut.edu.cn/news/sdut.htm">IE5.0软件由此可得,特别的大!</A>
 
ie5 has this problem too
 
我有ie5, 只是不敢装罢了:-(
 
我装的是IE5,有问题。
在IE4上也有问题。

to CJ:你想想该用什么办法来解决?查查以前的程序如何,因为这个问题我很急。
那个Active构件又没有帮助。
 
i found it
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('www.pku.edu.cn');
webbrowser1.Stop;
webbrowser1.Navigate('www.pku.edu.cn');
end;
第一次运行时必须先找一个url,停止,再重找它。然后就可以copy了,以后每找一个
url,就只找一次就可以了。花了我一中午时间,实验都没去作,又要被boss骂了
microzang ,能不能把delphi5的/demos/Coolstuf/下的例子发给我,调试时把它误
删了。
 
to hubdog:
好象不行啊, 我用的D4.
你要的Coolstuf.zip已经发送了.
 
我用d5, and use ie5 的ocx,no problem
may be you can change to d5 or ie5 to try it
if u use d4 then you coolstuf.zip not useful to me
 
我的方法可以的

v1,v2,v3:OleVariant;
begin
try

WebBrowser1.SetFocus; //This should be done!

//REMOVE following one statement if it is not nessary.
WebBrowser1.ExecWB(OLECMDID_SELECTALL,v1,v2,v3);

WebBrowser1.ExecWB(OLECMDID_COPY,v1,v2,v3);
//I think just use one virable should also work

except

end;
end;

不过好象和FOCUS有关,我的程序上有个BUTTON,按这个BUTTON没问题,可是
换了TRANSBTN就有时成有时不成,好象和当前焦点有关。
 
to CJ: 你的方法不行, 对没一张按钮都不行.
to hubdog: 我用的是D5 + IE5,你真的没有问题?但是你的方法也确实不行。
怎么办?
 
yes , do you try it on other computer
 
后退
顶部