Имя пользователя:
Пароль:
 

Название темы: FileListBox в Delphi 6
Показать сообщение отдельно

Аватара для Prisoner

Engrossed by the Void


Сообщения: 2229
Благодарности: 60

Профиль | Отправить PM | Цитировать


В procedure TFileListBox.ReadFileNames; осуществляется поиск файлов по маске. Строка где все подходящие файлы запоминаются выглядит так: Items.Add(Format('[%s]',[FileInfo.Name])); т.е. прямо с расширением, т.к. FileInfo: TSearchRec;.
Есть вариант делать невидимым компонент TFileListBox и из него копировать при изменении в TListBox изменяя к нужному виду. А можно выдрать коды TFileListBox из FileCtrl и поменяв там код использовать как свой новенький компонент...

P.S. способы предложены за неимением лучшего...

-------
Не могу дать более дельный совет - не хватает системных ресурсов...


Отправлено: 01:03, 11-03-2004 | #2

Название темы: FileListBox в Delphi 6