Головна сторінка
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.065 c
1-1101373384
Кругозір
2004-11-25 12:03
2004.12.12
призначення обробника всередині класу


3-1100391381
просто Джо
2004-11-14 03:16
2004.12.12
MySQL & amp; dbExpress


6-1096822363
Wolverrum
2004-10-03 20:52
2004.12.12
ADO і CGI


3-1100076696
Yurij-7
2004-11-10 11:51
2004.12.12
Інформація з DBGrid


14-1100974842
Igorek
2004-11-20 21:20
2004.12.12
Оффтоп :-)





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