“Method 'Visiable' not support by Automation Object'的错误.》》》》(50分)

L

lover402

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #1

我想实现在ListView1双击选中某一项，打开新IE窗口
语句如下：
var
url:string;
app:variant;
begin
url:=listview1.items.item[listview1.selected.index].SubItems.string[0];
app:=CreateOLEObject('InternetExplorer.Application');
app.Navigate(url);
App.Visiable:=True;
end;
运行触发该事件，会产生
“Method 'Visiable' not support by Automation Object'的错误.

而同样的一段代码用一个Button来实现打开新的IE窗口，就不会有错误
app:=CreateOLEObject('InternetExplorer.Application');
app.Navigate('http://www.xxxxx');
App.Visiable:=True;
不知如何解决？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #2

App.Visiable:=True;
意思是这个Com没有Visible属性，或者调用方法不对。
尝试App.Visible[0]:=True？？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #3

啊？你下面的能执行？
坏了，我上面所说的作废！[]

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #4

我这里两个都蹦叉呀。[]

 

L

lover402

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #5

要Uses ComObj;
下面的可以执行，没错。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #6

当然use comobj了，否则编译都不能通过。

 

L

lover402

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #7

但如果新建一个项目，单独用：
procedure TMainFrm.button1OnClick(sender:TObject);
var
app:Variant;
begin
app:=CreateOLEObject('InternetExplorer.Application');
app.Navigate('http://www.xxxxx');
App.Visiable:=True;
end;
就没有错误，可以打开新IE页面，为什么在ListView1的OnDblClick中实现
var
url:string;
app:variant;
begin
url:=listview1.items.item[listview1.selected.index].SubItems.string[0];
app:=CreateOLEObject('InternetExplorer.Application');
app.Navigate(url);
App.Visiable:=True;
end;

会有以上错误呢？

 

T

tan_jian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #8

加上 if ListView1.Selected<>nil then begin ..... end 试试

不该有问题的呀!

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #9

至少这里存在问题，我怎么用 visible都蹦叉。
var
app: OleVariant;

 

L

lover402

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #10

用 visible可以成功，不会出错了。问题已解。
谢谢各位！