1. 首页
  2. 编程语言
  3. Delphi
  4. DelphiTListView的应用
下载地址
用户评论
码姐姐匿名网友 2019-07-13 09:09:30

procedure TForm1.ListView1Click(Sender: TObject); begin if ListView1.ItemIndex > -1 then case ListView1.ItemIndex of 1: showmessage('1'); 2:showmessage('2'); 4:showmessage('42'); end else exit; end;

码姐姐匿名网友 2019-07-13 09:09:30

正在学习这个组件,接着下

码姐姐匿名网友 2019-07-13 09:09:30

感谢楼主,很好用

码姐姐匿名网友 2019-07-13 09:09:30

很好,用的很开心

码姐姐匿名网友 2019-07-13 09:09:30

正在学习这个组件,非常感谢!