我在ListView中添加了Item,我想能不能通过双击Item弹出消息框,请问一下是否可以实现
解决方案 »
- 想从事delphi开发工作需要哪些条件
- 動態生成TTabSheet 放在Page_Contorl後如何刪除它
- 在delphi 中,用ADO ,在前台如何把一外ADO 数据集中的数据全部复制到另外一个ado 数据集中
- 怎样表示已经选中的组件?
- Socket通讯问题(控件TClientSocket)
- 不规则表格的制作???
- 请高手出手:COM采集数据的通讯程序中如何动态创建多线程
- 请问如何调试COM
- 小弟有段代码 不太明白 希望高手们 帮忙给做下 注释
- DataSnap TCP连接中如何将客户端的Socket连接与回叫标识绑定?
- 新人报到
- 请问如何从一个Word文件中读入其第一行文字到一个字符串中(用CreateOleObject方法)? 谢谢了!
用listview的双击事件,同时判断当前被选中的listItem(listview.Selected),
就可实现类似双击listItem的效果
var
i : integer;
begin
if ListView1.ItemIndex <> -1 then
begin
for i:=0 to ListView1.Items.Count-1 do
begin
if ListView1.Items[i].Selected then
begin
if MessageBox(application.handle,'消息 ', '确认',mb_ICONQuestion+mb_YesNo)=mrYes then
begin
//---//
end;
end;
end;
end;
end;