Головна сторінка
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.56 MB
Час: 0.074 c
1-1101650361
Bobby Digital
2004-11-28 16:59
2004.12.12
Listbox pt.3


1-1101541575
Igor_thief
2004-11-27 10:46
2004.12.12
Хінт


14-1099947252
Пітер
2004-11-08 23:54
2004.12.12
Що за shellhook.dll?


1-1101084247
Хто --- то
2004-11-22 03:44
2004.12.12
Чому не спрацьовує OnClick, коли натискаємо по заголовку стовпця


1-1101720274
DDDeN
2004-11-29 12:24
2004.12.12
Мінімальні розміри форми





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