关于网友提出的“ 一个简单的listview问题”问题疑问，本网通过在网上对“ 一个简单的listview问题”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： 一个简单的listview问题
描述: 在窗体上有一个listview,一个toolbar和一个button
在toolbar上new了几个button
当点击button后,工具栏上的按钮的caption会添加在listview里
代码:
var
item:Tlistitem;
i:integer;
begin
for i:=0 to toolbar1.ControlCount-1 do
begin
item:=listview1.Items.Add;
item.Caption:=toolbar1.Controls[i].Hint;
end;
end;
但执行完后,listview里却没有显示,请教各位高手是什么问题
解决方案1:
procedure TForm1.Button1Click(Sender: TObject);
var
item:Tlistitem;
i:integer;
begin
for i:=0 to toolbar1.ControlCount-1 do
begin
item:=listview1.Items.Add;
item.Caption:=(toolbar1.Controls[i] as TToolButton).Caption;
end;
for i:=0 to toolbar1.ControlCount-1 do
begin
(toolbar1.Controls[i]).Hint:=IntToStr(i);
item:=listview1.Items.Add;
item.Caption:=(toolbar1.Controls[i]).Hint;
end;
end;
解决方案2:
procedure TForm1.Button1Click(Sender: TObject);
var
item:Tlistitem;
i:integer;
begin
for i:=0 to toolbar1.ControlCount-1 do
begin
item:=listview1.Items.Add;
item.Caption:=(toolbar1.Controls[i] as TToolButton).Caption;
end;
end;
以上介绍了“ 一个简单的listview问题”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/2294573.html
