Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

Drag & Drop in TListView Знайти схожі гілки


Сатир   (2002-12-11 18:47) [0]

DragMode:= mdAutomatic
и обрабатываем 2 события: On DragOver и OnDragDrop
привожу исходники

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X,
Y: Integer);
begin
with (Sender as TListView) do begin
items.Item[itemIndex].SetPosition(Point(x,y));
end;
end;

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
Accept:= Sender = Source;
end;

перетаскивать удаётся, но бросить (drop) не получается.
Вывод:неправильно описана работа обработчика OnDragDrop.
Поскажите ошибку.

Заздалегідь вдячний.



Сатир   (2002-12-11 20:14) [1]

будь-які ідеї?



Сатир   (2002-12-11 22:05) [2]

ладно, кое-как, с горем по полам, я нашёл решение, но есть подозрение на утечку памяти в обработчике OnDragDrop, а именно, при создании item2.
Насколько беспочвенны мои подозрения? И беспочвенны ли они вообще?
Привожу исходник

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X,
Y: Integer);
var item, item2:TListItem;
begin
with (Sender as TListView) do begin
item:=GetItemAt(x,y);
if item=nil then item:=items.Item[items.Count-1];
item2:=TListItem.Create(items);
item2.Assign(Selected);
Selected.Assign(item);
item.Assign(item2);
end;
end;



Сатир   (2002-12-12 13:33) [3]

Мастера! Ну скажите хоть что-то! Пожа-а-а-а-а-луйста



Игорь Шевченко   (2002-12-12 13:40) [4]

Есть замечательная статья MBo про drag"n"drop. В разделе "статьи".
Погляди.



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вгору





Пам'ять: 0.55 MB
Час: 0.047 c
1-74641
Ag2002
2002-12-10 14:48
2002.12.23
Очікування


4-75045
Олександр
2002-11-10 11:13
2002.12.23
Чи можна вивантажити з пам'яті dll і як?


1-74727
бобер
2002-12-13 13:25
2002.12.23
Форма


3-74591
ioSan
2002-12-05 01:00
2002.12.23
Допоможіть написати запит без вкладеного підзапиту.


14-74904
Arhangel
2002-12-01 13:02
2002.12.23
Зарание извеняюсь за це повідомлення!





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська