回 帖 发 新 帖 刷新版面

主题:[讨论]感觉

感觉本论坛上大多是初学者,提的问题大多很简单,在一般的书籍(非深入的)上都可找到答案。或者是问题的思路本身就不符合常规,有问题,也就是说按常规的方法处理就不复杂,问题往复杂方面想了。一些比较深的问题在本论坛中都难以得到解答。本人在此论坛上很少提问题,每次上来都是浏览一下帖子,回答几个典型一些的问题。当然也没有经常上来(前述是一个原因,另一个是时间问题)。
在此顺便提一个问题,希望有高手指点:ListView控件在ViewStyle为vsList时,当Item的Caption较长时总不能完全显示出来,变成前几个字加“...”的形式,有什么办法让它们完全显示出来,就象Wndows资源管理器中的右框一样,会根据文件名的长度自动调整?

回复列表 (共6个回复)

沙发

将其ListView1.MultiSelect:=True;

板凳

谢谢,我试一下。不过我要的偏偏是不能多选,当然如果能解决所提问题,多选可以通过其他方式限制。

3 楼

ListView1.MultiSelect:=True;既可以显示隐藏字,也可以实现多选的.

4 楼

我试了一下,不行啊。Item的Caption较长时仍是显示前几个字加“...”。注意:ViewStyle是vsList。

5 楼

是vsList;
我测试过了,是可以的,
我的Caption较达50个中文字,都可以的,查看你的代码,是否ListView1.MultiSelect另定义了.

6 楼

解决了。不过与ListView1.MultiSelect属性无关。见以下代码,Button1Click不行,Button2Click就可以。感谢给我提示,再给10分。


procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  //ListView1.Items.BeginUpdate;
  ListView1.Clear;
  for i:=0 to 15 do
    ListView1.Items.Add.Caption:='这是ListView的Caption这是ListView的Caption';
  //ListView1.Items.EndUpdate;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  ListView1.Items.BeginUpdate;
  ListView1.Clear;
  for i:=0 to 15 do
    ListView1.Items.Add.Caption:='这是ListView的Caption这是ListView的Caption';
  ListView1.Items.EndUpdate;
end;

我来回复

您尚未登录,请登录后再回复。点此登录或注册