Лабораторная работа _2

Лабораторная работа №2

Страница VCL «Стандартная»

Предварительная подготовка: В рабочей папке создать папку с именем «Страницы VCL».

1. Сохранить новый проект в папке «Страницы VCL» как My_Demo_VCL.dpr; файл Form1.pas как Standart.pas

2. Изменить заголовок формы (свойство Caption) на «Страница «Стандартная». Имя формы (свойство Name) заменить на StandartTab.

3. В верхнюю часть формы добавить компонент TРanel (как показано на рис.). Используем ее как заголовок для формы. Установить свойство Caption как «Демонстрация страницы VCL «Стандартная».

4. Добавить компонент TLabel, переименовав его согласно рис.

5. Ниже метки расположить компонент TEdit, очистить его свойство Text.

6. Добавить компонент TMemo. Найти на компьютере и вызвать справку del6vcl.hlp; вызвать справку по компоненту TMemo, изучить его свойства Align, ScrollBars, WordWrap, WantReturns. Удалить из свойства Lines текст. Нажатием <Enter> выделить 4 строки в TMemo под записи.

7. Добавить компонент TRadioGroup, изменить заголовок согласно рис. В свойство Items ввести названия 4-х кнопок. Свойство ItemIndex указывает на номер кнопки, выбранной по умолчанию (-1 ничего не выбрано, 0 – выбрана 1-ая и т.д.). В код обработчика события OnClick ввести

procedure TStandartTab.RadioGroup1Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex=0 Then StandartTab.Color:=clSilver;

if RadioGroup1.ItemIndex=1 Then StandartTab.Color:=clBlue;

if RadioGroup1.ItemIndex=2 Then StandartTab.Color:=clYellow;

if RadioGroup1.ItemIndex=3 Then StandartTab.Color:=clRed;

end;

8. Добавить компонент TScrollBar. В событие OnChange дабавить код

procedure TStandartTab.ScrollBar1Change(Sender: TObject);

begin

RadioGroup1.ItemIndex:=ScrollBar1.Position;

end;

9. Добавить компонент TСomboBox.

10. Добавить компонент TListBox, установить свойство IntegralHeigt=True (выяснить, что это означает). Ввести несколько (>3 !) строк.

11. Добавить компонент TGroupBox. Добавить в группу четыре TButton, две TRadioButton, две TCheckBox. Изменить заголовки этих компонентов согласно рис.

У одной из TRadioButton установить свойство Checked=True.

12. Для TButton1 в код обработчика события OnClick ввести

procedure TStandartTab.Button1Click(Sender: TObject);

var

x:integer;

begin

Memo1.Clear; //Очистка содержимого Memo

Memo1.Lines.Add(Edit1.Text); //скопировать в Memo текст из Edit1

Memo1.Lines.Add(ComboBox1.Text); //скопировать в Memo текст из ComboBox

//скопировать в Memo1 выбранный текст из окна списка ListBox1

Memo1.Lines.Add('ListBox Строка #'+IntToStr(ListBox1.ItemIndex+1));

if RadioButton1.Checked then Memo1.Color:=clWhite;

if RadioButton2.Checked Then Memo1.Color:=clAqua;

end;

13. Для TButton2 в код обработчика события OnClick ввести

procedure TStandartTab.Button2Click(Sender: TObject);

begin

if CheckBox1.State=cbChecked then StandartTab.Font.Style:=[fsItalic]

else StandartTab.Font.Style:=[ ];

if CheckBox2.State=cbChecked then StandartTab.Font.Color:=clPurple

else StandartTab.Font.Color:=clBlack;

end;

14. Для TButton3 в код обработчика события OnClick ввести

procedure TStandartTab.Button3Click(Sender: TObject);

begin

Close;

end;

15. Код для TButton4 пока отсутствует. Временно установить ее свойство Enable=False

16. Добавить компонент TMainMenu (невизуальный). Двойным щелчком на свойстве Items запустить конструктор меню (либо из контекстного меню). Инспектор объектов при этом изменится. Установить свойство Caption=&Файл (амперсант& сообщает, что следующую за ним букву нужно подчеркнуть и включить ее в комбинацию быстрых клавиш. Здесь – Alt+Ф).

В выпадающем меню добавить пункт &Выход. Рядом с &Файл добавить пункт &Помощь с выпадающим списком из двух команд: По&мощь и &О программе… Разделить их между собой чертою, для чего добавить дефис (-) в свойство Caption строки меню сразу под По&мощь. Для пункта меню &Выход ввести код обработчика события Button3Click. Для команды &О программе… вывести окно сообщения со своими данными.

17. Добавить компонент TPopupMenu. Запустить конструктор меню, добавить команды «Готово» и «Обновить шрифты». Выбрать для них события, аналогичные событиям кнопок. Свяжите созданное меню с формой: в свойстве формы PopupMenu укажите PopupMenu1.

18. Протестировать приложение.