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

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

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

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

Вопрос задал: Александр-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

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

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

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