用Delphi开发ActiveForm的一些问题(200分)

  • 主题发起人 主题发起人 csgcsw
  • 开始时间 开始时间
C

csgcsw

Unregistered / Unconfirmed
GUEST, unregistred user!
1、对于一个已经打开的IE页面,在Delphi中如何控制页面的前进、后退等操作。
2、当IE调用Delphi 5.0编写的ActiveForm时,若该ActiveForm的高度太大,需要在IE中用上下滚动条滚动,经过几次滚动后,页面将变得一塌糊涂,请问是什么原因,有什么办法能解决?
3、当IE调用Borland C++ builer 5.0编写的ActiveForm时,IE会拦截BackSpace,PageDown,PageUp,LeftArrow等按键消息,而我编写的ActiveForm无法响应该消息,请问我该怎么办?
 
2。这是delphi的bug,以前有人给出了解决方法,你用activeform搜索一下,
应该可以找到的。
 
建议你改用ActiveX控件来实现你的功能。
 
第二个问题,我已经找到解决办法(原来是Delphi的Bug,我对Delphi的失望又加深了一层)。
第一个问题,应该是需要找到正在运行的IE的实例,可是我只知道怎样打开IE的实例,然后
控制它,请看下述代码:
procedure TForm1.Button1Click(Sender: TObject);
var
app:Variant;
begin
app:=CreateOleObject('InternetExplorer.Application');//创建IE的实例
app.navigate('http://www.borland.com');
app.visible:=true;

end;

 
第二个问题,我已经找到解决办法(原来是Delphi的Bug,我对Delphi的失望又加深了一层)。
第一个问题,应该是需要找到正在运行的IE的实例,可是我只知道怎样打开IE的实例,然后
控制它,请看下述代码:
procedure TForm1.Button1Click(Sender: TObject);
var
app:Variant;
begin
app:=CreateOleObject('InternetExplorer.Application');//创建IE的实例
app.navigate('http://www.borland.com');
app.visible:=true;
end;
可我不知道怎样取得已经运行的IE的实例,请哪位大侠给予帮助;
第三个问题,据说用钩子(hook)可解决此问题,可我从未写过钩子函数,请哪位能提供
例程给我
万分感谢!
 
use GetActiveOleObject('InternetExplorer.Application') to get the running IE
 
我用GetActiveOleObject('InternetExplorer.Application')时,系统产生
"操作无法使用"的异常,hubdog能否告知是什么原因?
 
第三個問題我也遇到過,但不知如何解決A
 
请问第三个问题是指页面显示之后,必须点一下ActiveForm上某个能接受焦点的控件后,
它才能接受 BackSpace 这几个键的现象吗?我想自己试试看。
 
第三个问题是指在BCB做的ActiveForm中不管焦点在哪儿,按BACKSPACE等键,IE都将截获
按键消息。用Delphi做的ActiveForm没这个问题,但又产生另一个问题,即在刚Load该
ActiveForm后,可以将光标focus到ActiveForm上的某一控件,如TEdit,并且可以给该
TEdit输入内容,但是不能按BackSpace键修改,必须先用鼠标点击该ActiveForm的任一地方。
麻烦你研究一下这两者情况,不甚感激!
 
请问怎样才能将分数收回?好心疼啊!
 
我也很想知道第三个问题的答案
我也问了一遍
哪位高手一并回答了吧!
 
问题虽然没解决,分还是要给的!
 
后退
顶部