读书人

listview里面的内容如何响应双击事

发布时间: 2012-05-21 18:04:41 作者: rapoo

求助,,listview里面的内容,怎么响应双击事件啊~
我用delphi+sqlserver 2000,查询得到的内容在Listview里面显示
勾选checkbox后,按button4,则弹出form3。这个没有问题
现在要求通过双击选中并打开,应该怎样实现呢?
(空间不能传图片了,总是提示‘请选择图片’)

procedure TForm2.Button4Click(Sender: TObject);
var
num,i, t: Integer;
// Query: TADOQuery;
begin
t:= 0;
num:=ListView1.items.count;
if num = 0 then
begin
showmessage('没有记录,请先查询');
Exit;
end;
for i:=0 to num-1 do
begin
if ListView1.Items[i].Checked then
begin
xuhao:= ListView1.Items[i].Caption;
t:= 1;
end;
end;
if t = 0 then
begin
showmessage('没有选中记录');
exit;
end;
form3.ShowModal
end;



[解决办法]
Listview的Click事件
[解决办法]
Listview的Click事件
[解决办法]
在对像检查器里有一项 Events ,在这里面编写 DblClick 事件就可以了
[解决办法]
Listview有双击事件onDblClick!!!

Delphi(Pascal) code
  if ListView1.Selected <> nil then  begin    ListView1.Selected.Checked:=True;    ...  end; 

读书人网 >.NET

热点推荐