Головна сторінка
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.82 MB
Час: 0.055 c
6-1096625251
leonidus
2004-10-01 14:07
2004.12.12
Інтеграція програми з Оперою


14-1101177109
Рант
2004-11-23 05:31
2004.12.12
Скільки платять?


14-1100874460
ceval
2004-11-19 17:27
2004.12.12
Підкажіть компонент для автозапуску програми


3-1100166372
denis24
2004-11-11 12:46
2004.12.12
insert into .... select f1, f2 ....


1-1101723610
WondeRu
2004-11-29 13:20
2004.12.12
Інтерфейс оголошується як клас! ??? Ет як?





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