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

Вниз

OnSelectItem в listView   Найти похожие ветки 

 
$Hic0 ©   (2003-10-15 11:47) [0]

Добрый день.
Обрабатываю выбор элемента следующим кодом:

procedure TMainForm.FileListSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
Var LData : TListData;
begin
If FileList.Selected<>nil then
Begin
LData:=TListData.Create;
LData:=TListData(FileList.Selected.Data);
ShowMessage(LData.VectorS);
End;
end;


Анализируя то что выдает ShowMessage, вижу что какой-бы эелемнт я не выбирал выбирается последний из списка. В чем может быть дело? Заранее спасибо.


 
clickmaker ©   (2003-10-15 12:08) [1]

LData:=TListData.Create;
LData:=TListData(FileList.Selected.Data);

Это как?

LData хранится в Data? Тогда зачем Create ?

И тогда уж так

LData := TListData(Item.Data);


 
$Hic0 ©   (2003-10-15 12:22) [2]

Create не нужен, согласен, но он и не мешает ИМХО
С кодом тоже несущественно, пробовал и так:

procedure TMainForm.FileListSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
Var LData : TListData;
begin
If Selected then
Begin
LData:=TListData(Item.Data);
ShowMessage(LData.VectorS);
End;
end;


Что в лоб что по лбу :) Предвосхищая вопрос, скажу что для разных итемов в Item.Data хранятся разные VectorS, порверял, ошибка именно в этом коде :(


 
clickmaker ©   (2003-10-15 12:28) [3]

А как заполняешь Data ? И как проверял ?


 
$Hic0 ©   (2003-10-15 12:56) [4]

ListData.ID:=ID;
ListData.VectorS:=VectorS;
ListData.VectorB:=VectorB;
FileList.AddItem(s,ListData);
Проверял дельфевым дебагером :)


 
clickmaker ©   (2003-10-15 13:25) [5]

Глупый вопрос: если AddItem в цикле вызываешь, TListData.Create вызываешь для каждой итерации ?


 
$Hic0 ©   (2003-10-15 13:40) [6]

Нет!!! Не глупый!!! Боже какой я идиот :) Я вот с утра сижу, мать его так, как полено перед монитором :(
Спасибо большое, куда мои глаза приделаны интересно. с руками вместе :)
Спасибо!



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

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

Наверх




Память: 0.47 MB
Время: 0.043 c
14-89560
Gfa
2003-10-06 09:14
2003.10.27
Некорректное завершение windows


1-89359
Alecs
2003-10-15 18:10
2003.10.27
Как узнать, запущена-ли сейчас Delphi IDE?


1-89284
ScableR
2003-10-14 02:53
2003.10.27
Отлов нажатия на Удаленный доступ


1-89235
BillyJeans
2003-10-14 13:59
2003.10.27
Маленький вопросик по ListView...


3-89105
Данила
2003-10-08 12:59
2003.10.27
Результаты в DBgrid.