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

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

На какое событие это сделать? [D7, WinXP]


.ruslan ©   (2005-08-11 14:21:00) 

Доброго времени суток!
С одной проблемой накануне столкнулся я, и не могу сдвинуться с «мёртвой точки». Так вот,  нужно что бы при выборе одной из строк компонента TListView, нужно чтобы например TLabel принимал свойство Caption равную одному из ячейки выбранной строки компонента. Помогите если это вас не затруднит. На какое событие это сделать?


.ruslan   (2005-08-11 19:17:00) [1]

Всё сделал, спасибо всем! Решил пойти нетрадиционным способом, вот:

procedure TMAIN.ListView2Click(Sender: TObject);
var
i:integer;
begin
i:=listview2.ItemIndex;
if ListView2.Selected <> nil then
begin
 label4.Caption := listview2.Items.Item[i].SubItems.Strings[0];
end;
end;


Eraser   (2005-08-11 18:35:00) [2]

.ruslan ©   (11.08.05 18:17) [10]

Ошибка видать в 17-й строке.


.ruslan   (2005-08-11 18:17:00) [3]

Нажимаю первый раз - всё работает, второй - error...


.ruslan   (2005-08-11 18:13:00) [4]

Да, всё существует. 4 строки, и более за 10 колон


GuAV   (2005-08-11 17:44:00) [5]

Это событие вызывается и при потере выбора.
SubItems - существует ?
Strings[1] -  существует ?


pasha_golub   (2005-08-11 17:31:00) [6]

Нумерация с нуля начинается. Это учел?


.ruslan   (2005-08-11 17:19:00) [7]

Нет, дело в том, что у меня множество (не один) столбцов


TUser   (2005-08-11 15:59:00) [8]

Кто-то не создан.

PS. Тебе Item уже передали, поэтому можно прямо написать Item.SubItems..., без всяких там I и индексов.


.ruslan   (2005-08-11 15:53:00) [9]

Сделал вот так:

procedure TMAIN.ListView2Change(Sender: TObject; Item: TListItem;
 Change: TItemChange);
var
i:integer;
begin
i:=listview2.ItemIndex;
label4.Caption := listview2.Items.Item[i].SubItems.Strings[1];
end;


Ругается млин, EAccessViolation. Что-там не так?


Digitman   (2005-08-11 14:37:00) [10]

то есть событие возбуждается по инициативе юзера, а не программно


.ruslan   (2005-08-11 14:30:00) [11]

то есть?


Digitman   (2005-08-11 14:24:00) [12]

на OnChange

при условии что выбор эл-та списка осуществляется интерактивно.


Наверх

Титульная страница Поиск, карта сайта Написать письмо