Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Радиокнопка (класс TRadioBotton).



Читайте также:
  1. Кнопка выбора опции (класс TCheckBox).
  2. Методология и методы психологического исследования (классификация).
  3. Милютин Дмитрий Алексеевич (1816—1912), соученик Лермонтова (классом ниже) по пансиону, государственный деятель (военный министр с 1861), военный историк, мемуарист.
  4. Одноквартирные жилые дома, в том числе блокированные (класс функциональной пожарной опасности Ф1.4)
  5. Формализация типов ОС (классификация) ОС

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

Все свойства аналогичны кнопке выбора опции.

Список (класс TListBox).

Компонент представляет собой окно, в котором могут отображаться некоторые элементы, которые можно выбирать. Используется для отображения вариантов.

Свойства:

Items - массив строк типа TStrings, выводимых в окно. Для работы с объектами Tstrings используются методы:

Add - добавить строку к массиву: ListBox1.Items.Add(‘Новая строка’);

Delete - удалить строку из массива;

Insert - вставить строку в массив;

Sorted - если указано true, то строки в окне сортируются;

ItemIndex - номер выбранной строки (строка выделяется);

MultSelect - если указано true, то можно выбирать больше, чем одну строку;

ExtendSelect - если указано true, то нужно использовать для выбора нескольких строк клавиши Shift или Ctrl;

SelCount - количество выбранных строк;

Selected - позволяет определить, выбрана ли конкретная строка:

Пример:

procedure TForm1.FormCreate(Sender: TObject);

Var

I: Integer;

Begin

ListBox1.Items.Add('Blue');

ListBox1.Items.Add('Yellow');

ListBox1.Items.Add('Red');

End;

procedure TForm1.ListBox1Click(Sender: TObject);

Begin

if ListBox1.Selected[0] then ListBox1.Color:= clBlue;

if ListBox1.Selected[1] then ListBox1.Color:= clYellow;

if ListBox1.Selected[2] then ListBox1.Color:= clRed;

end;


Дата добавления: 2015-07-10; просмотров: 84 | Нарушение авторских прав






mybiblioteka.su - 2015-2024 год. (0.006 сек.)