Delphi. Страница Additional. Васильев В.В - 8 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

8
24. Сделайте на кнопке надпись В
ыход
Значение &Выход
свойства Caption
25. Напишите обра-
ботчик события On-
Click кнопки В
ыход,
закрывающий фор-
му AdditionalTab
procedure TAdditionalTab.BitBtn2Click
(Sender: TObject);
begin
{Закрыть форму AdditionalTab}
AdditionalTab.Close;
end;
Для корректной работы кнопки Выход в событие OnClose формы
AdditionalTab нужно добавить обработчик, завершающий работу приложе-
ния и выгружающий его из памяти.
26. Откройте вкладку Events ин-
спектора объектов для формы Ad-
ditionalTab
Клик в свободном месте формы. Клик
по закладке Events
27. Напишите обра-
ботчик события On-
Close формы Addition-
alTa
procedure TAdditionalTab.FormClose
(Sender: TObject; var Action:
TCloseAction);
begin
{Завершить работу приложения}
Application.Terminate;
end;
28. Сохраните формы и проект
File|Save All
29. Проверьте работу программы
F9
Первый этап работы закончен. В остальных примерах работы будет
рассматриваться создание второй формы проекта.
2. Компоненты Bevel, Image, Shape, SpeedButton
Приступим к реализации второго этапа нашего проекта. В примере
работы 2 будет оформлена панель инструментов формы AdditionalTab.
Макет формы после выполнения примера работы 2 показан на рис. 4.
План примера 2
1-3. Оформление кнопок Назад и Выход с помощью компонента Bevel.
4-7. Создание линейки инструментов с за-
головком Логотип фирмы.
8-10. Работа с компонентом Image.
11-14. Создание фигуры Shape.
15-18. Добавление быстрой кнопки Speed-
Button со стандартной гравировкой.
19-25. Изготовление собственной грави-
ровки во встроенном редакторе.
26-29. Оформление быстрой кнопки с
соб-
ственной гравировкой.
Рис.4. Макет формы Addi-
tionalTab после выполнения
примера работы 2.

Страницы