caption von listview item wird nicht angezeigt

[Andreas L.]

Hi,
ich habe mir folgenden Code geschrieben der einer listView ein Item hinzufügt.

Delphi-Quellcode:

procedure Tfrm_Wizard.AddFileToList(FileName: String);
var
 ext: String;
 item: TListItem;
begin

 item := TListItem.Create(lst_Files.Items);
 item.Caption := FileName;
 ext := ExtractFileExt(FileName);

 if IsPathDelimiter(FileName, Length(Filename)) then
  begin

   item.ImageIndex := 4;

  end
  ...
  //hab das mal etwas gekürzt ;-)
  ...
 else
  begin

   item.ImageIndex := 5;

  end;
 
 item.Checked := true;
 item.StateIndex := -1;
 lst_Files.Items.AddItem(Item);

end;

Jetzt wird zwar das Symbol angezeigt. Aber nicht die caption, wieso??? ne Eigenschaft wie z. B. ShowCaption := true gibts nicht.

Ich habe schon die versch. Einstellungen der ListView durchprobiert.

Weiß jemand Rat?

[Keldorn]

Hallo

nimm mal das lst_Files.Items.AddItem(Item); am Ende raus und statt Tlistitem.create
Listitem:=Listview.Items.Add; Mfg Frank

[Andreas L.]

Zitat von Keldorn:

Hallo

nimm mal das lst_Files.Items.AddItem(Item); am Ende raus und statt Tlistitem.create
Listitem:=Listview.Items.Add; Mfg Frank

dann habe ich in der Liste gar keinen Eintrag.

EDIT: mom, jetzt gehts. Vielen Dank