1)form上有一个edit1和一个listview1,我想在点击listview1时让edit1显示listview1的caption,但是下面这句在执行时,如果我点击listview1的空白处,会报错,为什么?怎么改?listview1的viewstyle属性为vsicon!
edit1.text:=listview1.selected.caption;
2)我想在显示form时,使listview1中的某一项为默认的选中状态,应该怎么办?
edit1.text:=listview1.selected.caption;
2)我想在显示form时,使listview1中的某一项为默认的选中状态,应该怎么办?
解决方案 »
- 找3DSmax激活码
- Delphi中怎麼讓Memo1衹接受Edit1的拖放操作而不接受EDit2的拖放操作
- delphi7开发控件,怎样调试
- 现在一Delphi动态库(没有类),如何用asp调用?(查到的资料基本是VB的Dll)
- 请教一个数据导出为EXCEL的问题
- 刚在POPO上建了一个组,感兴趣的请进,组号是:107547 名称是:编程兴趣小组
- 这个问题问了老师也不知道!
- 为什么insert并且刷新纪录集之后,dbgrid不会刷新,但是当输入第二条记录之后,dbgrid出现两条记录?
- 请问,delphi有没有这样的控件?
- 大家帮我看下这是什么控件没装啊
- 数据库一个字段 我定义成 float 类型 怎么 输入的小数后总给我保留出一长串小数
- VB与EXCEL报表问题
if listview1.selected<>nil then edit1.text:=listview1.selected.caption;
2. 在onformshow的时候用
listview1.items[n].selected:=true;
csdn的输入框真讨厌,怎么都对不齐。
edit1.text:=listview1.selected.caption;
if listview1.selcount=0 then exit;
可以改为如下:
if listview1.selected <> nil then
edit1.text:=listview1.selected.caption
else
edit1.text := '';
2)在form的OnShow事件里加一句代码,例如:
if listview1.items.count > 0 then
listview1.items.item[0].selected := True;