用ListBox1.Items.Add住listBox中添加项目,为何第一项字体小些?

Question

用ListBox1.Items.Add住listBox中添加项目时,第一项字体小些,而其它后面的项
字体都一样,就第一项不同,这是为何啊?是不是Delphi的bug啊?高手请指教一下

Answer 1

程序这样写的:
procedure TForm3.ListBox1Add;
var
    i: Integer;
begin
     ListBox1.Clear;
     if (PForRList^.Count > 0) then
     for i := 0 to (PForRList^.Count-1) do
       begin
           AFileInfo := PForRList^.Items[i];
           ListBox1.Items.Add(AFileInfo.FileTitle);
       end;
end;

Answer 2

不知道
我实现时，所有的字体都一样。
var
i: integer;
begin
  ListBox1.Clear;
  for i:=0 to 10 do
  begin
   ListBox1.Items.Add(inttostr(i));
  end;
end;

Answer 3

Font的设置是这样:
MS Sans Serif,8,[],DEFAULT_CHARSET,clWindowText
这有什么问题吗?

Answer 4

如果你不设置Font呢
那显示还有问题吗？

Answer 5

其实我没有设置Font,都是属性里面默认的,我没改过啊

Answer 6

将listbox1所在的窗体字体改成宋体，则这窗体上所有控件的字体显示都正常了。