procedure TForm1.FileListBox1Change(Sender: TObject);
var i:word;s:string;
begin
ListBox1.Clear;
try
for i:=0 to FileListBox1.Count-1 do
begin
s:=FileListBox1.Items.Strings;
ListBox1.Items.Add(copy(s,1,length(s)-length(ExtractFileExt(s))));
end;
except
end;
end;
FileListBox
Привет! можете подсказать как сделать чтобы в FileListBox показывал файлы без расширения- только имя файла пр: ххх.тхт = ххх??? :)
посибо!
посибо!
такого вроде бы не предусмотрено, хотя могу ошибаться. есть, правда, немного корявый способ, который заключается в том, что на форму помещается еще и ListBox поверх FileListBox, а потом их надо связать друг с другом, например так:
ListBox будет показывать файлы без расширения, т.е. 1.txt=1.
Код:
ListBox будет показывать файлы без расширения, т.е. 1.txt=1.
Привет! Посибо, что помогаешь..... только в listbox когда на жимаешь на имя, картинка не высвечивается.... а в filelistbox когда я кликаю на файл в Imagen появляется картинка
Imagen1.pictures(filelistbox1.filename); но когда я пишу
Imagen1.pictures(listbox1.....) выводит ошибку.....
как мне сделать подскажи пожалуйста :)
Imagen1.pictures(filelistbox1.filename); но когда я пишу
Imagen1.pictures(listbox1.....) выводит ошибку.....
как мне сделать подскажи пожалуйста :)
попробовать можно так:
Код:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
try
Image1.Picture.LoadFromFile(FileListbox1.Directory+'\'+FileListbox1.Items.Strings[Listbox1.ItemIndex]);
except
end;
end;
begin
try
Image1.Picture.LoadFromFile(FileListbox1.Directory+'\'+FileListbox1.Items.Strings[Listbox1.ItemIndex]);
except
end;
end;