📄 listview的使用方法.txt
字号:
listview的使用方法:(利用过程)
procedure Tmainfrm.addbookinfo(var q:Tquery;var v:Tlistview;flg:integer);
begin
q.first;
while not q.eof do
begin
with v.items.add do
begin
caption:=q.fieldbyname('图书编号').asstring;
subitems.add(q.fieldbyname('书名').asstring);
subitems.add(q.fieldbyname('作者').asstring);
end;
q.next;
end;
end;
book_no:=v.selected.caption;//取到相应的caption
b_out:=v.selected.subitems[4];//找到自已的第四个子项值
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -