Поговорим о ListView?

← →
Olegek (2002-06-04 20:10) [0]

Доброго времени суток!
У меня проблемка такого характреа:
Я обрабатываю событие 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?

← →
McSimm (2002-06-04 20:16) [1]

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

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

← →
Olegek (2002-06-04 20:38) [2]

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

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

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

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

← →
McSimm (2002-06-04 20:45) [3]

Я это понял так, что нужно текст из файла, имя которого известно, поместить в 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:51) [4]

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

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

← →
VID (2002-06-04 23:21) [5]

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

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

← →
MAxiMum (2002-06-05 11:12) [6]

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

← →
VID (2002-06-05 15:59) [7]

TO MAxiMum: :)

Поговорим о ListView? Найти похожие ветки