Программирование в среде Delphi. Часть 2. Создание оконных приложений. Садовская О.Б. - 34 стр.

UptoLike

Составители: 

34
ключателем RadioButton, который может находиться в одном из двух
состояний: нажат не нажат. Панель переключателей позволяет соз-
дать группу переключателей и определить, какой из них нажат.
Класс TRadioGroup является непосредственным потомком класса
TCustomRadioGroup, в котором определены основные особенности па -
нели переключателей RadioGroup. Приведём основные свойства панели
переключателей.
property Columns : integer;
Определяет число колонок, в которые будут помещаться переключате-
ли. По умолчанию число колонок равно единице .
property ItemIndex : integer;
Определяет порядковый номер выделенного переключателя . Нумерация
начинается с нуля . Если ни один из переключателей не выделен ,
свойство имеет значение -1.
property Items : TStrings;
Содержит список названий переключателей.
Панель переключателей является потомком класса TWinControl и,
следовательно, входит в семейство оконных элементов управления ,
которые обрабатывают все события , возникающие при использовании
клавиатуры и мыши. Событием по умолчанию для панели переключа -
телей является OnClick, возникающее при выделении нового переклю -
чателя при помощи клавиатуры или мыши.
Список выключателей CheckListBox подобен панели переключате-
лей RadioGroup в том смысле, что оба эти компонента предназначены
для группирования более простых элементов управления : RadioGroup
объединяет зависимые переключатели, а CheckListBox независимые
выключатели.
Если в панели переключателей Radio Group выбранным (нажатым)
может быть только один переключатель, то в списке выключателей
CheckListBox каждый выключатель может находиться в одном из трёх
состояний: включен , выключен , нейтральное. Рассмотрим основные
свойства , определённые в классе TCheckListBox, экземпляром которого
является список выключателей.
property checked[ index : integer] : boolean;
Содержит состояние выключателя с индексом index. Индексация на-
чинается с нуля . Если i-ый выключатель включен , то Checked[i] имеет
значение true, в противном случае false.
property Items: TStrings;
Содержит список названий выключателей.
property OnClickCheck : TNotifyEvent;
Наступает при изменении состояния любого выключателя .
Пример 5. Создадим приложение, позволяющее менять цвет текста,
набранного в строке ввода Edit, а также использовать эффекты под -
чёркнутого и зачёркнутого текста. Окно работающего приложения
должно выглядеть следующим образом :
                                           34
клю ча т елем RadioButton, который м ож ет н а ход ит ься в од н ом из д ву х
состоя н ий: н а ж а т – н е н а ж а т. Па н ель переклю ча телей позволя ет соз-
д а т ь гру ппу переклю ча т елей и опред елит ь, ка кой из н их н а ж а т.
       К ла сс TRadioGroup я вля ет ся н епосред ст вен н ым потом ком кла сса
TCustomRadioGroup, в котором опред елен ы осн овн ые особ ен н ост и па -
н ели переклю ча телей RadioGroup. Привед ём осн овн ые свойст ва па н ели
переклю ча т елей.
property Columns : integer;
Опред еля ет число колон ок, в кот орые б у д у т пом еща т ься переклю ча т е-
ли. По у м олча н ию число колон ок ра вн о ед ин ице.
property ItemIndex : integer;
Опред еля ет поря д ковый н ом ер выд елен н ого переклю ча теля . Н у м ера ция
н а чин а ет ся с н у ля . Е сли н и од ин из переклю ча т елей н е выд елен ,
свойст во им еет зн а чен ие -1.
property Items : TStrings;
Сод ерж ит список н а зва н ий переклю ча т елей.
       Па н ель переклю ча телей я вля ет ся потом ком кла сса TWinControl и,
след ова т ельн о, вход ит в сем ейст во окон н ых э         лем ен тов у пра влен ия ,
кот орые об ра б а тыва ю т все соб ыт ия , возн ика ю щие при использова н ии
кла виа т у ры и м ыш и. Соб ытием по у м олча н ию д ля па н ели переклю ча -
т елей я вля ет ся OnClick, возн ика ю щее при выд елен ии н ового переклю -
ча т еля при пом ощи кла виа т у ры или м ыш и.
       Список выклю ча т елей CheckListBox под об ен па н ели переклю ча те-
лей RadioGroup в т ом см ысле, что об а э           т и ком пон ен т а пред н а зн а чен ы
д ля гру ппирова н ия б олее простых э         лем ен тов у пра влен ия : RadioGroup
об ъед ин я ет за висим ые переклю ча тели, а CheckListBox – н еза висим ые
выклю ча т ели.
       Е сли в па н ели переклю ча т елей Radio Group выб ра н н ым (н а ж а тым )
м ож ет б ыть т олько од ин переклю ча т ель, то в списке выклю ча т елей
CheckListBox ка ж д ый выклю ча т ель м ож ет н а ход ит ься в од н ом из т рёх
состоя н ий: вклю чен , выклю чен , н ейт ра льн ое. Ра ссм отрим осн овн ые
свойст ва , опред елён н ые в кла ссе TCheckListBox, э        кзем пля ром кот орого
я вля ет ся список выклю ча т елей.
property checked[ index : integer] : boolean;
Сод ерж ит сост оя н ие выклю ча т еля с ин д ексом index. И н д екса ция н а -
чин а ет ся с н у ля . Е сли i-ый выклю ча тель вклю чен , т о Checked[i] им еет
зн а чен ие true, в прот ивн ом слу ча е – false.
property Items: TStrings;
Сод ерж ит список н а зва н ий выклю ча т елей.
property OnClickCheck : TNotifyEvent;
Н а ст у па ет при изм ен ен ии состоя н ия лю б ого выклю ча теля .
Прим ер 5. Созд а д им прилож ен ие, позволя ю щее м ен я ть цвет т екст а ,
н а б ра н н ого в ст роке ввод а Edit, а т а кж е использова т ь э     ф ф ект ы под -
чёркн у т ого и за чёркн у т ого текст а . Окн о ра б от а ю щего прилож ен ия
д олж н о выгля д ет ь след у ю щим об ра зом :