Переместить элементы спискаDelphi , Компоненты и Классы , СпискиПереместить элементы списка
Оформил: DeeCo // Move an item up procedure LbMoveItemUp(AListBox: TListBox); var CurrIndex: Integer; begin with AListBox do if ItemIndex > 0 then begin CurrIndex := ItemIndex; Items.Move(ItemIndex, (CurrIndex - 1)); ItemIndex := CurrIndex - 1; end; end; procedure TForm1.Button1Click(Sender: TObject); begin LbMoveItemUp(ListBox1); end; // Move an item down procedure LbMoveItemDown(AListBox: TListBox); var CurrIndex, LastIndex: Integer; begin with AListBox do begin CurrIndex := ItemIndex; LastIndex := Items.Count; if ItemIndex <> -1 then begin if CurrIndex + 1 < LastIndex then begin Items.Move(ItemIndex, (CurrIndex + 1)); ItemIndex := CurrIndex + 1; end; end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin LbMoveItemDown(ListBox1); end; Статья Переместить элементы списка раздела Компоненты и Классы Списки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |