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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

35
Свойству Caption компонента RadioGroup1 присвоим значение
′Цвет ′. Выделим свойство Items и щелкнем по кнопке с тремя точка -
ми. В появившемся окне StringListEditor введём имена переключате-
лей. Для каждого переключателя выделяется одна строка :
Чёрный
Зелёный
Красный
Cиний
После завершения ввода нажимаем кнопку Ok. Свойство ItemIndex
установим равным 0. Это означает , что в начале работы выделенным
переключателем будет первый.
Компонент CheckListBox1 берём состраницы Additional Палитры
Компонентов. Выберем свойство Items и введём названия выключате-
лей:
Зачёркнутый
Подчёркнутый
Выполним двойной щелчок на компоненте RadioGroup1. В поя -
вившемся окне Редактора Кода запишем операторы для обработчика
события OnClick, которое возникает при выделении нового переклю -
чателя .
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.itemindex=0 then edit1.font.color:=clblack;
if radiogroup1.itemindex=1 then edit1.font.color:=clgreen;
if radiogroup1.itemindex=2 then edit1.font.color:=clred;
if radiogroup1.itemindex=3 then edit1.font.color:=clblue;
end;
Для компонента CheckListBox1 напишем обработчик события
OnClickCheck, которое возникает при изменении состояния какого-
либо выключателя .
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
if checklistbox1.Checked[0] 
                                         35




        Свойст ву Caption ком пон ен т а RadioGroup1 присвоим зн а чен ие
′Ц вет′. В ыд елим свойст во Items и щелкн ем по кн опке с трем я точка -
м и. В поя вивш ем ся окн е StringListEditor введ ём им ен а переклю ча те-
лей. Д ля ка ж д ого переклю ча т еля выд еля ется од н а ст рока :
                                       Ч ёрн ый
                                       З елён ый
                                       К ра сн ый
                                        Cин ий
После за верш ен ия ввод а н а ж им а ем кн опку Ok. Свойст во ItemIndex
у ст а н овим ра вн ым 0. Э т о озн а ча ет , чт о в н а ча ле ра б от ы выд елен н ым
переклю ча т елем б у д ет первый.
        К ом пон ен т CheckListBox1 б ерём сост ра н ицы Additional Па литры
К ом пон ен т ов. В ыб ерем свойст во Items и введ ём н а зва н ия выклю ча т е-
лей:
                                        З а чёркн у т ый
                                        Под чёркн у т ый
        В ыполн им д войн ой щелчок н а ком пон ен т е RadioGroup1. В поя -
вивш ем ся окн е Ред а кт ора К од а за пиш ем опера т оры д ля об ра б от чика
соб ытия OnClick, кот орое возн ика ет при выд елен ии н ового переклю -
ча т еля .
        procedure TForm1.RadioGroup1Click(Sender: TObject);
        begin
        if radiogroup1.itemindex=0 then edit1.font.color:=clblack;
        if radiogroup1.itemindex=1 then edit1.font.color:=clgreen;
        if radiogroup1.itemindex=2 then edit1.font.color:=clred;
        if radiogroup1.itemindex=3 then edit1.font.color:=clblue;
        end;
          Д ля ком пон ен та CheckListBox1 н а пиш ем об ра б от чик соб ыт ия
OnClickCheck, которое возн ика ет при изм ен ен ии сост оя н ия ка кого-
либ о выклю ча т еля .
        procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
        begin
        if checklistbox1.Checked[0]

Страницы