Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Поиск по EasyTable
   Категория: Базы данных
  Как подключить или отключить сетевой диск
   Категория: Интернет и Сети
  Распознавание кодировки. Перекодировка.
   Категория: Текст и строки
  Определение размера файла
   Категория: Файловая система
  Как произвести поиск файлов во вложенных папках
   Категория: Файловая система
  Wav файл внутри exe-файла
   Категория: Файловая система
  Номер строки в memo под курсором
   Категория: Текст и строки
  Создание цветных строк в ListBox
   Категория: Компоненты

свадебные украшения для невесты см. тут
Delphi - База Знаний: Listbox - элементы вверх-вниз

  << Вернуться к Содержанию  

procedure TMainForm.Button4Click(Sender: TObject);
var
x,y,z:integer;
begin
if listbox1.ItemIndex=-1 then exit;
x:=listbox1.ItemIndex;
y:= x-1;
z:= listbox1.ItemIndex;
Listbox1.Items.Move(x,y);
if z=0 then listbox1.ItemIndex:=listbox1.Items.Count-1
else
listbox1.ItemIndex:=z-1;
end;

procedure TMainForm.Button5Click(Sender: TObject);
var
x,y,z:integer;
begin
if listbox1.ItemIndex=-1 then exit;
x:=listbox1.ItemIndex;
y:= x+1;
z:= listbox1.ItemIndex;
if y=listbox1.Items.Count then
begin
Listbox1.Items.Move(x,0);
Listbox1.ItemIndex:=0;
end;
if y<listbox1.Items.Count then
begin
Listbox1.Items.Move(x,y);
Listbox1.ItemIndex:=z+1;
end;
end;
  << Вернуться к Содержанию