各位大哥请帮帮忙！(100分)

糟

糟老头

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #1

小弟我做一小软件 将一个HTML文件里的超链接 提取出来 用ListView组件显示出来 有两列
一列为超链接的文字标题 一列为超链接的地址 我现在想请教各位大哥 怎么定义双击事件
使我双击文字标题 能自动打开IE 并连接到 此文字标题所对应的超链接的地址上 最好有源
代码 请大家多多帮忙~ 小弟先谢谢了

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #2

ShellExecute(Application.Handle, 'open', 'IEXPLORE.EXE',
'http://www.sohu.com', nil, SW_NORMAL);

 

任

任豆豆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #3

procedure TForm1.listView1DblClick(Sender: TObject);
begin
if listView1.Selected <> nil then
ShellExecute(Handle,'Open',pchar('listView1.Selected.Caption'),nil,nil,sw_shownormal);
end;

 

糟

糟老头

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #4

1楼的大哥 这样做的话 那个地址是固定的啊 我要的是 点击一个标题 就连接到一个对应的地址
地址是变量啊 不同的标题 地址是不同的啊

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #5

老大，你不会取listview的caption啊。豆豆写的对

 

I

iloveqq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #6

这是取出listview1.di第2列的值的方法
procedure TForm1.ListView1DblClick(Sender: TObject);
begin
showmessage(listview1.Items.Item[listview1.Selected.Index].SubItems.Strings[0]);
//showmessage());
end;

然后再用
ShellExecute(Application.Handle, 'open', 'IEXPLORE.EXE',
pchar(上面得出的值), nil, SW_NORMAL);

 

糟

糟老头

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #7

lcl_003 偶比较菜了 请你帮忙 呵呵 我的QQ是6817057 联系下我 好吗 谢谢了

 

糟

糟老头

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #8

多人接受答案了。