6. Компонент tRadioGroup.

1. Добавьте к приложению компонент TRadioGroup. Свойству ItemIndex задайте значение 0. В Items ввести две строки: единичное значение, расчет для интервала значений.

2. Добавьте на Panel2 еще одну метку Label2 (Caption-Конечное значение) и еще один редактор Edit2. Свойству Visible этих компонентов присвойте значение False. Это означает, что компоненты не будут видны на форме до тех пор, пока свойство Visible не станет равным True.

3. Создайте обработчик OnClick для компонента TRadioGroup.

Procedure TForm1.RadioGroup1Click(Sender:TObject);

Begin

Case RadioGroup1.ItemIndex of

0: begin

Label1.Caption := ‘Введите значение веса в граммах’;

Edit2.Hide; Label2.Hide; End;

1: begin

Label1.Caption := ‘Начальное значение веса’;

Edit2.Show; Label2.Show; End; End; End;

Методы Show и Hide определяют видимость компонента на экране.

Внесите изменения в обработчик OnClick компонента ListBox1:

Procedure TForm1.ListBox1Click(Sender:TObject);

Begin

If (Edit1.Text =' ') or

(ListBox1.ItemIndex <0 ) then Exit;

Case RadioGroup1.ItemIndex of

1: begin

if (Edit2.Text=' ') then Exit;

X_nach:=StrToFloat(Edit1.Text);

X_kon:=StrToFloat(Edit2.Text);

D:= (X_kon –X_nach)/10; End;

0: begin

X_nach:=StrToFloat(Edit1.Text);

X_kon:=X_nach;

D:=1; End; End;

x:= X_nach;

while x <= X_kon do

begin

case ListBox1.ItemIndex of

0: y:= x/400;

1: y:= x/16380;

2: y:= x/28.35;

3: y:= x/28.35*16;

4: y:= 437.5*x/28.35; end;

Memo1.Lines.Add(FormatFloat('#####.#####Грамм=',x)+ FormatFloat('#####.#####',y) + ListBox1.Items[ListBox1.ItemIndex]);

x:= x + D;

end;

Edit1.Clear;

Edit1.SetFocus;

Edit2.Clear;

End;

Не забудьте описать переменные X_nach, X_kon, D.

4. Для компонента Memo1 установите ScrollBars равным ssVertical. У многострочного редактора появилась линейка прокрутки.

5. Осуществите прогон программы.

7. Компонент tGroupBox.

Установите на Panel1 компонент TGroupBox и задайте свойство Caption равным «Настройка экрана». С помощью этого компонента выделяется группа управляющих элементов, объединенных по функциональному назначению.

8. Компонент tCheckBox.

1. Состояние этого компонента содержит свойство State: cbUnchecked – нет; cbChecked – да; cbGrayed – не знаю. Это свойство доступно как для чтения, так и для записи. Свойство Сhecked содержит выбор пользователя Да/Нет. Установите компонент TCheckBox (Caption-Шрифт) на контейнер TGroupBox.

2. Создайте обработчик события OnClick для этих компонентов.

Procedure TForm1.CheckBox1Click(Sender:TObject);

Begin

If CheckBox1.State = cbChecked then

Memo1.Font.Style:=[fsItalic]

Else Memo1.Font.Style:=[];

End;

3. Проверьте работу вновь установленных компонентов.