Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.17;
Скачать: CL | DM;

Вниз

Поговорим о 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: :)



Страницы: 1 вся ветка

Текущий архив: 2002.06.17;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
14-55319
Саша
2002-05-14 08:33
2002.06.17
где взять иконки?


3-55036
Onio
2002-05-23 18:44
2002.06.17
Ошибка при импорте данных в Oracle


3-54993
Klaus
2002-05-09 14:41
2002.06.17
DCOMConnection+ClientDataSet, можно ли заставить сервер...


7-55331
skovorodka
2002-03-16 15:38
2002.06.17
Гду найти RxTrayIcon ?? или как по-другому засунуть программу в трей ?


3-54996
oss
2002-05-23 09:58
2002.06.17
Уважаемые, посмотрите этот запрос (mssql)