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

Вниз

Listbox pt.2 Знайти схожі гілки


Bobby Digital ©   (2004-11-28 05:25) [0]

А чи можна як то в Listbox перетягувати елементи щоб змінювався їх індекс. Тобто взть рядок з Індексом 0 .. і перетягнути на рядок 3



PZ   (2004-11-28 12:12) [1]

Один з варіантів вирішення може бути такий:

Кожен
Ind: Integer;
S: String;

procedure TForm1.ListBox1MouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

починати
Ind: = ListBox1.ItemIndex;
S: = ListBox1.Items.Strings [Ind];
end;

procedure TForm1.ListBox1MouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Кожен
I: Integer;
починати
I: = ListBox1.ItemIndex;
ListBox1.Items.Insert (I, S);
ListBox1.Items.Delete (Ind);
end;



Bobby Digital ©   (2004-11-28 12:41) [2]


> PZ

ні це невірне рішення ... тому що функия Insert замінює один елемент на другий, а не змінює їх місцями. Тут потрібно використовувати функцію Move
var _index: integer; procedure TForm4.ListBox1MouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin _index: = ListBox1.ItemIndex; end; procedure TForm4.ListBox1MouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var i: integer; begin I: = ListBox1.ItemIndex; ListBox1.Items.Move (_index, i); Listbox2.Items.Add ( "+"); end;
але ... MouseUp НЕ Сосве походить, а чи є яка-небудь подія яке виникає при виділенні елемента?



Bobby Digital ©   (2004-11-28 12:43) [3]

в сенсі виділення елемента Listbox`a



begin...end ©   (2004-11-28 13:19) [4]

> [2] Bobby Digital © (28.11.04 12: 41)

> Тому що функия Insert замінює один елемент на другий

Ви в цьому впевнені?



Bobby Digital ©   (2004-11-28 13:23) [5]

до begin ... end

в прикладі наведеному PZ - так!



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

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

наверх









Пам'ять: 0.57 MB
Час: 0.06 c
3-1100438650
Alenka_gal
2004-11-14 16:24
2004.12.12
Як реалізувати пошук по тексту


6-1095166307
Реко
2004-09-14 16:51
2004.12.12
Підключення до IRC через Indy IdIRC


4-1099137379
Скорпіон
2004-10-30 15:56
2004.12.12
Волокно


3-1100363168
zz 5
2004-11-13 19:26
2004.12.12
View в Interbase


14-1101186125
Кисле
2004-11-23 08:02
2004.12.12
Ще питання про SMTP і POP3 сервери





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