Items — коллекция строк;
MultiSelect — разрешено ли выделение нескольких строк;
Columns — колличество колонок;
Color — цвет фона;
Sorted — сортировка по алфавиту;
Остальные свойства были объяснены у других компонентов.
Добавление строчки делается так:
ListBox1.Items.Add('Текст');
А теперь разберемся как же добавить текст из Edit. Выложим на форму TListBox, TEdit и TButton. Создайте событие у кнопки onCreate:
ListBox1.Items.Add(Edit1.Text);
А если мы будем жать кнопку ничего не вводив в Edit, то будут добавляться пустые строки. Для того чтобы такого небыло просто перед добавлением сравним: пустое ли поле Edit. Если не пустое добавим. Сейчас разберем как это можно реализовать. Изменим ту же самую процедуру Button1Click. Вот как все должно выглядеть:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'' then
ListBox1.Items.Add(Edit1.Text);
end;
То же самое действие можно сделать немного по другому:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'' then Exit;
ListBox1.Items.Add(Edit1.Text);
end;
Exit означает завершение процедуры и прекращение ее выполнения дальше. Сначала проверяем написано ли что-нибудь в Edit1 и если там ничего не написанно то завершаем выполнение процедуры, тем самым строчка ListBox1.Items.Add(Edit1.Text); не будет выполненна, а значит и ничего не добавится.
Для того чтобы узнать номер выделенной строчки пишем:
ShowMessage(IntToStr(ListBox1.ItemIndex));
Если ничего не выделенно то ItemIndex=-1. Так как в процедуре ShowMessage входной параметр строкового типа, а ItemIndex целочисленного, то необходимо перевести из целочисленного типа в строковый. Проще говоря нужно перевести из Integer в String.
IntToStr — это и есть функция перевода из целочисленного типа в строковый, а StrToInt — обратно.
Можно не только получить выделенную строку, но и программно выделить нужную строку. Допустим нужно выделить 2 стрку:
ListBox1.ItemIndex:=1;
Так как нумерация ведется начиная с 0 то присваиваем не 2 а 1.
Чтобы удалить какую-либо строку:
ListBox1.Items.Delete(0);
В данном случае удаляем строку под номером 0 - самую первую в списке.
А как удалить выделенную строку? Очень просто:
ListBox1.Items.Delete(ListBox1.ItemIndex);
Чтобы очистить ListBox не совсем обязательно удалять каждую строчку можно просто вызвать функцию:
ListBox1.Clear;
Компоненты TLabel, TPanel, TMainMenu
TLabel
Основные cвойсва:
Caption — отображаемый текст;
Color — цвет фона;
Font — цвет, стиль, шрифт, размер текста;
AutoSize — автоматическая подстройка размеров под отображаемый текст;
Alignment — выравнивание: taCenter - по центру, taLeftJustify - слева, taRightJustify - справа;
Transparent — прозрачность, т.е. фона не будет видно.
Все события аналогичны TEdit.
Компонент обычно используется для разнообразных подписей, вывода текста сообщений.
TPanel
Панель используется в качестве контейнера. Панель является родителем для всех размещенных на ней компонентов, а следовательно Left и Top всех компонентов на панели считаются относительно левого верхнего угла панели. Часто ее используют для создания панелей инструментов.
Основные cвойсва:
Caption — отображаемый текст;
Color — цвет панели;
Alignment — выравнивание Caption;
BevelInner — тип внутренней рамки;
BevelOuter — тип внешней рамки;
BorderStyle — стиль обрамления;BevelWidth — толщина рамки в пикселях;
Остальные свойства считаю разбирать нет смысла, т.к. аналогичные свойства уже были разобранны в предыдущих уроках.
Со свойствами BevelInner, BevelOuter, BorderStyle желательно поэкспериментировать и поразбераться. Там все не так сложно.
TMainMenu
Компонент представляющий из себя главное меню программы, расположенное под строкой заголовка.
Обратите внимание что этот компонент сделан так, что саму иконку компонента не видно во время работы программы.
Выкладываем компонент на форму и щелкаем по нему два раза. Появится новое окно — это редактор меню. Далее переходим в инспектор объектов.
Разберем основные свойства:
Caption — текст элемента меню;
Name — имя элемента меню;
Bitmap — изображение рядом с текстом меню;
Enabled — доступен ли элемент;