用WebBrowser控件写了调用网页的程序,但网页中如有文本框,则在该文本框中输入文字时,无法回车换行。请教如何解决???

chime 2001-06-25 03:43:18
...全文
366 24 打赏 收藏 转发到动态 举报
写回复
用AI写文章
24 条回复
切换为时间正序
请发表友善的回复…
发表回复
yancey 2001-09-25
  • 打赏
  • 举报
回复
chime(天涯海角):IHTMLWindow4 , use MSHTML
chime 2001-07-31
  • 打赏
  • 举报
回复
??
chime 2001-07-27
  • 打赏
  • 举报
回复
xagang()—()乱码()—():请详细说明,先谢了。
乱码 2001-07-27
  • 打赏
  • 举报
回复
为什么不用IE的Active控件呢?
chime 2001-07-27
  • 打赏
  • 举报
回复
SOS
ldstudio 2001-07-27
  • 打赏
  • 举报
回复
?
chime 2001-07-27
  • 打赏
  • 举报
回复
?
chime 2001-07-27
  • 打赏
  • 举报
回复
<-
chime 2001-07-26
  • 打赏
  • 举报
回复
dana(dana)???
chime 2001-07-26
  • 打赏
  • 举报
回复
你好,用if WebBrowser1.Document <> nil then
   IHTMLWindow4(WebBrowser1.Document).focus
编译时IHTMLWindow4(WebBrowser1.Document).focus 出错,IHTMLWindow4是什么?在HELP中查不到。   
dana 2001-07-25
  • 打赏
  • 举报
回复
好像没办法。
使WebBrowser获得焦点
  TWebBrowser非常特殊,它从TWinControl继承来的SetFocus方法并不能使得它所包含的文档获得焦点,从而不能立即使用Internet
Explorer本身具有得快捷键,解决方法如下:<
  procedure TForm1.SetFocusToDoc;
  begin
   if WebBrowser1.Document <> nil then
    with WebBrowser1.Application as IOleobject do
     DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle,
GetClientRect);
  end;
  除此之外,我还找到一种更简单的方法,这里一并列出:
  if WebBrowser1.Document <> nil then
   IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).focus

  刚找到了更简单的方法,也许是最简单的:
  if WebBrowser1.Document <> nil then
   IHTMLWindow4(WebBrowser1.Document).focus
  还有,需要判断文档是否获得焦点这样来做:
  if IHTMLWindow4(WebBrowser1.Document).hasfocus then
chime 2001-07-25
  • 打赏
  • 举报
回复
???
chime 2001-07-09
  • 打赏
  • 举报
回复
aton():在页面中输入文字,焦点自然移到该页面。
chime 2001-07-05
  • 打赏
  • 举报
回复
今天下载了delphi6,一试CppWebBorrower控件,仍然一样没改进。
没办法支持网页内文本框的回车换行。
试了VB和VC都可以,但一定要用BCB或DELPHI来写,大家有什么高招?
chime 2001-07-05
  • 打赏
  • 举报
回复
BigBen(江南草):就是用cwebborrow控件写了一个类似IE的程序,这程序调用用asp写的网页,而网页中有文本输入框,在该网页的文本输入框中输入文字要换行时,搞回车不起作用,而用IE直接调用该网页是正常的。

wweng_kl(天涯芳草之太极花):调用的的asp网页的文本输入框正是textarea类型,用IE直接调用该网页是正常的,可以回车换行。
aton 2001-07-05
  • 打赏
  • 举报
回复
给webbrowser中的页面焦点试一下
chime 2001-07-05
  • 打赏
  • 举报
回复
aton()、Kingron(戒网中……):都已试过,不行。
Kingron 2001-07-05
  • 打赏
  • 举报
回复
use Ctrl+Enter?Try?
aton 2001-07-05
  • 打赏
  • 举报
回复
给webbrowser焦点试一下
BigBen 2001-06-30
  • 打赏
  • 举报
回复
?什么意思?回车没反应吗?
加载更多回复(4)

5,939

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧