Головна сторінка
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.062 c
3-1100407007
чорний
2004-11-14 07:36
2004.12.12
Помилка при спробі зміни властивості ADOConnection


1-1101363417
Mishenka
2004-11-25 09:16
2004.12.12
Дублювання події у компонента


1-1101732165
Bobby Digital
2004-11-29 15:42
2004.12.12
перезапуск


14-1101111170
Comp
2004-11-22 11:12
2004.12.12
MacOS


3-1100495957
Galim
2004-11-15 08:19
2004.12.12
Як пакувати DBF-файли через ADO?





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