Свойства ListBox

Columns	определяет во сколько столбцов будет отображен список, если он не помещается в окно ListBox
Sorted	Если установленное в true то список располагается по алфавиту. При этом новые строки добавляются не в конец, как обычно, а по алфавиту.
MultiSelect	разрешается множественный выбор при установленном значении в true, если MultiSelect установлено в false то разрешено выбрать только один элемент
Items	Элементы списка – массив строк
Count	определяет количество элементов списка
ItemIndex	определяет номер выбранного элемента(нумерация списка начинается с нуля). Если в списке не выбрано ни одного объекта, то значение равно минус 1

 

Событие	Описание
OnClick	Событие нажатия на список кнопкой мыши.
OnDblClick	Событие двойного нажатия на список кнопкой мыши.
OnDrawItem	Событие отрисовки каждого отдельного элемента списка. Позволяет реализовывать другой внешний вид для каждого элемента посредством Canvas, например, добавить изображения, или какие-то дополнительные надписи.

 

Примеры работы

Пример	Исходный код
Добавление строки	ListBox1.Items.Add("Строка"); {или} ListBox1.Items.Add(s); {, где s: string}
Удаление строки, зная ее индекс (идентификатор)	ListBox1.Items.Delete(a); //, где а:integer
Удаление выбранной строки	ListBox1.Items.Delete(ListBox1.ItemIndex); // Если строка не была выбрана (ItemIndex = -1), то возникнет ошибка. Желательно сделать перед удалением проверку ItemIndex на -1.
Проверить, выбрана ли строка	if ListBox1.ItemIndex <> -1 then {выбрана} else {не выбрана};
Вставить определенную строку в определенную позицию	ListBox1.Items.Insert(p, s); //, где p - позиция, s - строка
Очистить список	ListBox1.Items.Clear;
Загрузить содержимое списка из файла	ListBox1.Items.LoadFromFile(fn); //, где fn - абсолютный или относительный путь для файла
Сохранить содержимое списка из файла	ListBox1.Items.SaveToFile(fn); //, где fn - абсолютный или относительный путь для файла

 

 

Прежде всего рассмотрим методы добавления строк в компонент Delphi ListBox:

· Считывание из файла;

· Добавление строки в конец списка;

· Добавление строки перед строкой с номером i;

· Добавление строк на этапе конструирования.

Добавление строки в конец списка Программист может последовательно добавлять строки в компонент, не заботясь об их нумерации, и они будут размещаться в конец списка:

ListBox1.Items.Add('Новая_Строка'); //Добавление строк в конец списка

Так как количество строк в компоненте равно ListBox1.Items.Count, то новая (последняя) строка имеет номер ListBox1.Items.Count-1. Это объясняется тем, что нумерация строк начинается от 0.

Добавление строки перед строкой с номером i Программист может разместить новую строку среди существующих строк там, где ему необходимо. Для этого нужно воспользоваться методом Insert, и указать номер строки, перед которой необходимо записать новую строку:

ListBox1.Items.Insert(i, 'Новая_Строка'); // Добавление строки перед строкой с номером i

При этом новая строка получает номер i.

Добавление строк на этапе конструирования В Инспекторе Объектов зайдите на строчку Items и нажмите на появившуюся кнопку. Появится окно редактора содержимого, где и можно внести нужную информацию. После нажатия кнопки OK содержимое редактора появится в компоненте ListBox на Форме.

Пользователь может выделить строку, щёлкнув по ней мышкой. Номер выделенной строки возвращает свойство компонента ListBox.ItemIndex. То есть, получить текст выделенной строки можно так:

S:= ListBox1.Items[ListBox1.ItemIndex];

Не забывайте пользоваться оператором присоединения with. С его использованием это присваивание выглядит так:

with ListBox1 do

begin

S:= Items[ItemIndex];

end;

Для удаления строк из компонента применяется метод Delete. Удаление строки с номером i:

 

ListBox1.Items.Delete(i);

 

Чтобы при добавлении каждая строка была отсортирована (сортировка идёт только по возрастанию), нужно установить:

 

ListBox1.Sorted:= True;

 

Также возможно установить это свойство на этапе конструирования в Инспекторе Объектов.

 

К сожалению, компонент не обладает возможностью добавлять только уникальные данные. Один и тот же текст запишется несколько раз. Для реализации этой возможности приходится дополнительно применять невизуальный аналог компонента ListBox - объект StringList, обладающий такой возможностью:

 

procedure TForm1.Button1Click(Sender: TObject);

var SL: TStringList;

S: String;

begin

SL:=TStringList.Create; // Создаём список строк типа TStringList

SL.Sorted:=True; // Устанавливаем свойство - сортировать строки

SL.Duplicates:=dupError; // Устанавливаем свойство - дубликаты вызывают ошибку добавления

try

SL.Add(S); // Пробуем добавить строку в объект StringList

ListBox1.Items.Add(S); // Добавляем строку в компонент ListBox

except

Caption:='Попытка добавить дубликат';

// Попытка добавить дубликат вызовет ошибку в первой строке секции try/except,

// прерывание и переход к секции except/end.

// Добавления в ListBox не будет.

end;

end;

 

Компонент ListBox автоматически добавит полосу прокрутки, если количество строк не помещается по высоте компонента. Высота каждой строки равна ItemHeight. Если нужно чтобы при добавлении новой строки полоса прокрутки точно не возникла, этот размер нужно добавить к высоте компонента. Но делать это нужно только начиная с определённого количества строк. Поэтому нужно делать проверку:

 

ListBox1.Items.Add('Новая_строка');

with ListBox1 do

if (Items.Count > (Height/ItemHeight))

then Height:= Height + ItemHeight;

 

Но если высота компонента не нацело делится на высоту строки, то прокрутка всё равно возникнет. Поэтому нужно отнять единичку:

 

ListBox1.Items.Add('Новая_строка');

with ListBox1 do

if (Items.Count > (Height/ItemHeight)-1)

then Height:= Height + ItemHeight;

 

Однако на долю секунды полоса прокрутки всё-таки появляется. Поэтому сначала сделаем проверку, а затем уже будем добавлять строку. В этом случае уже нужно отнимать не 1, а 2:

 

with ListBox1 do

if (Items.Count > (Height/ItemHeight)-2)

then Height:= Height + ItemHeight;

ListBox1.Items.Add('Новая_строка');