怎样为listview 添加 单击 或 双击 事件 ，为了能打开一个ie浏览器

Question

rt

Answer 1

uses ShellAPI为ListView添加OnClick事件或者OnDbClick事件，代码参考：procedure TForm1.ListView1DblClick(Sender: TObject);
begin
  if (ListView1.Selected<>nil) and (ListView1.Selected.Caption='aa') then
    ShellExecute(handle,'open','http://www.163.com',nil,nil,SW_SHOWNORMAL);
end;

Answer 2

ls 我的网站是listitem的内容 怎么启动ie时加载 这个网页

Answer 3

str:=ListView1.Selected.Caption
这样可以取出来

Answer 4

第一列：ListView1.Selected.Caption
第二列：ListView1.Selected.SubItems[0]
第三列：ListView1.Selected.SubItems[1]...

Answer 5

为listview 添加事件 写了 uses ShellAPI procedure TForm1.ListView1DblClick(Sender: TObject); 
begin 
  if (ListView1.Selected <>nil) and (ListView1.Selected.Caption='aa') then 
    ShellExecute(handle,'open','http://www.163.com',nil,nil,SW_SHOWNORMAL); 
end;
可是没有反应 是不是还要手动的配置一些参数？？

Answer 6

 procedure TForm1.ListView1DblClick(Sender: TObject);
 begin
   if (ListView1.Selected  <>nil) {and (ListView1.Selected.Caption='aa')} then
     ShellExecute(handle,'open','http://www.163.com',nil,nil,SW_SHOWNORMAL);
 end;