如题
解决方案 »
- delphi 获取网页元素某input的name属性值,然后做相应的操作
- 求一SQL语句
- :***帮忙看看是什么问题,急急急,再线等!!*******
- ComboBox1.AddItem()的第二个参数意义
- 怎样删除目录中所有文件
- 请大家讨论一下,顺便给我出出主意,做公司的MRPII,是用B/S结构好还是C/S结构好?各有什么优缺点?
- dbgrideh怎样控制时间显示?
- locate问题再问!
- 欢迎Delphi的高高手、中高手、低高手、所有自认为是高手但别人不认为是高手、以及所有自认为不是高手但别人认为是高手的人进入。
- 怎么才能让自己的可用分提高?
- teechart高难度问题?
- ShowModal问题??为什么1.窗口打开,2窗口会打不开???
var
i,j:integer;
begin
j:=0;
if (treeview1.Selected.Text<>'数据录入') and (treeview1.Selected.Text<>'数据统计') and (treeview1.Selected.Text<>'报表打印') and (treeview1.Selected.Text<>'系统维护') and (treeview1.Selected.Text<>'数据查询') then
begin
if listbox2.count<>0 then
begin
for i:=0 to listbox2.Count-1 do
begin
if treeview1.Selected.Text=listbox2.Items[i] then
j:=j+1;
end;
end;
if j=0 then
listbox2.Items.Add(Treeview1.Selected.Text);
end;
end;
这段代码的意思是通双击把在listview1所选中的内容放到listbox2中;
2:问题解决:
mycaption:=listview1.Item[I].Caption;
或listview1.selected.caption;