Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 215

/ вопрос открыт /

Задача: Есть 2 Tlistview. Нужно из 1-го listview "скопировать" только выделенные items во второй.

В приложении к вопросу представлен примерный код. Если это написать без 5-ой строки (то что я написал как комментарий) то будут отображаться только рисунки а названий под ними не будет.

Приложение:
  1. for i:=1 to 5 do
  2. if ListView1.Items.Item[i].Selected then begin
  3. listview2.Items.AddItem(ListView1.Items.item[i],i);
  4. {listview2.Items.Item[i].Caption:=ListView1.Items.Item[i].caption;}
  5. end;


Александр-446 Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Александр-446 (статус: Посетитель)
Вопрос отправлен: 24 декабря 2006, 11:30
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Евгений Козаченко

Вот. Всё должно работать:

var
k:TListItem;
i:integer;
begin
for i:=0 to listview1.Items.Count-1 do
if listview1.Items.Item[I].Selected then
begin
k:=listview2.Items.Add;
k.Caption:=listview1.Items.Item[I].Caption;
k.ImageIndex:=listview1.Items.Item[I].ImageIndex;
end;
end;

Ответ отправил: Евгений Козаченко (статус: 2-ой класс)
Время отправки: 24 декабря 2006, 14:41


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 28 марта 2020, 21:24
Выполнено за 0.01 сек.
Рейтинг@Mail.ru