| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поговорим о ListView? [D3, Win95/98]

Olegek ©   (2002-06-04 20:10:00) 

Доброго времени суток!
У меня проблемка такого характреа:
Я обрабатываю событие OnClickкомпонента ListView1таким образом:

procedure TForm1.ListView1Click(Sender: TObject);
begin
if ListView1.Selected.Caption = "" then
exit
else
begin
Label5.Caption := ListView1.Selected.Caption;
Label6.Caption := ListView1.Selected.Caption;
end;
end;

При щелчке курсором мыши в пустой области ListView1
выводиться ошибка - "Acess.........".
Как от этого избавиться?

Иеще - Как при загрузке формы поместить первый файл, который находиться в ListView1 в Label5?

---

VID   (2002-06-05 15:59:00) [1]

TO MAxiMum: :)

---

MAxiMum   (2002-06-05 11:12:00) [2]

2Vid
Немного подправлю (так на доли секунды быстрее):
Procedure TForm1.form1show(...);
begin
if listview.items.count >=0 then
label6.caption := listviev1.items[0].caption;
end;

---

VID   (2002-06-04 23:21:00) [3]

TO SubjAutor: А что ж ты, дальше свойства Selected решил не идти ? ;)

Procedure TForm1.form1show(...);
begin
if listview.items.count >=0 then
label6.caption := listviev1.items.item[0].caption;
end;

---

Olegek   (2002-06-04 20:51:00) [4]

Нет, нет, не текст, а только имя файла, которое будет отображено первым в списке ListView1"а.

При загрузки программы в ListView1 загружаються имена файлов.
Нужно поместить первое имя файла в списке ListView1"а в Label6.

---

McSimm   (2002-06-04 20:45:00) [5]

Я это понял так, что нужно текст из файла, имя которого известно, поместить в Label.

Но я не уверен, что понял правильно :)

Если файл текстовый, то вот пример

var
F: TextFile;
S: string;
begin
AssignFile(F, FileName);
Reset(F);
try
Readln(F, S);
Label.Caption := S;
finally
CloseFile(F)
end
end;

---

Olegek   (2002-06-04 20:38:00) [6]

За первый ответ спасибо!

>2. Куда чего поместить и что где находится?

В событии OnCreate формы я помещаю примерно следующее Label6.Caption := ListView1.Selected.Caption;

А нужно, чтобы вместо выбранного файла - ListView1.Selected.Caption; - загружался первый файл, находящийся в списке ListView1"а.

---

McSimm   (2002-06-04 20:16:00) [7]

1. Например, первой строкой:
if not Assigned(ListView1.Selected) then Exit;

2. Куда чего поместить и что где находится? :)

---

Наверх