|
Вопрос # 3 257/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Подскажите следущее, в listview меняю местами item
CurrentItem := ListView1.selected;
Item := ListView1.GetItemAt(x, y);
Drop
if Item <> nil then
Item := ListView1.Items.Insert(Item.Index)
else
Item := ListView1.Items.Add;
Item.Assign(CurrentItem);
CurrentItem.Free;
if Sender = Source then
with TListView(Sender) do
begin
DropItem := GetItemAt(X, Y);
CurrentItem := Selected;
while CurrentItem <> nil do
begin
NextItem := GetNextItem(CurrentItem, SdAll, [IsSelected]);
if DropItem = nil then DragItem := Items.Add
else
DragItem := Items.Insert(DropItem.Index);
DragItem.Assign(CurrentItem);
CurrentItem.Free;
CurrentItem := NextItem;
как сделать, чтобы вмести с этим менялись и сторки местами в мемо( поменялся item ,поменялась и строка на ту же позицию).
спасибо
 |
Вопрос задала: Lena (статус: Посетитель)
Вопрос отправлен: 7 октября 2009, 00:37
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 8 октября 2009, 23:00; участников в обсуждении: 2.
7 октября 2009, 09:59: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.
|
Мережников Андрей (статус: Абитуриент), 7 октября 2009, 22:20 [#1]:
Вопрос про ListView откуда берется Memo??? Это фокус такой, да?
|
|
|
Lena (статус: Посетитель), 8 октября 2009, 12:04 [#2]:
да фокус. в memo название изображения
|
|
|
Мережников Андрей (статус: Абитуриент), 8 октября 2009, 17:19 [#3]:
заводим промежуточную переменную, например, s1:string;
s1:=memo1.lines[первая строка];
memo1.lines[первая строка]:=memo1.lines[вторая строка];
memo1.lines[вторая строка]:=s1;
первая и вторая строка - это строки в memo, которые надо поменять местами.
|
|
|
Lena (статус: Посетитель), 8 октября 2009, 23:00 [#4]:
а как в цикле сделать чтобы каждую строку не прописывать
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
