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

UptoLike

7
Tab и открываю-
щий форму Addi-
tionalTab
AdditionalTab.Show;
end;
Организуем переход в обратную сторону так, чтобы клик по кнопке
Назад в окне второй формы выводил бы на экран первую.
17. Откройте модуль формы AdditionalTab
Veiw|Forms или
Shift+F12
18. Положите на форму кнопку BitBtn
Страница Additional
19. Сделайте на кнопке надпись Назад
Свойство Caption
20. Положите на кнопку стандарт-
ную гравировку с красной стрел-
кой влево
Свойство Glyph. Кнопка Load. Файл
arrow1l.bmp
21. Напишите
обработчик со-
бытия OnClick
кнопки Назад,
убирающий с
экрана форму
AdditionalTab и
открывающий
форму Stan-
dardTab
procedure TAdditional-
Tab.BitBtn1Click(Sender: TObject);
begin
{Показать на экране окно формы StandardTab}
StandardTab.Show;
{Убрать с экрана окно формы AdditionalTab}
AdditionalTab.Hide;
end;
На данном этапе при запуске программы должно открываться окно
первой формы, а затем по нажатию на кнопку Дальше первое окно исчезает
и появляется второе, клик по кнопке Назад скрывает окно второй формы и
выводит первую.
Если на данном этапе Вы запустите проект на исполнение, то увидите,
что выход из программы происходит
некорректно. Несмотря на то что
формы закрываются, приложение остается в памяти, впустую расходуя ре-
сурсы компьютера и мешая Вам работать с макетом формы.
Научимся корректно завершать работу проекта, состоящего из не-
скольких форм. Для начала положим на вторую форму кнопку В
ыход.
22. Положите на форму Additional-
Tab кнопку BitBtn2
Страница Additional
23. Оформите BitBtn2 как кнопку bkClose
Свойство Kind
Рис.3. Стандартные виды оформления кнопки BitBtn.
У компонента BitBtn есть еще одно интересное свойство
Kind, позволяющее указать одну из 11 стандартных видов
кнопки, показанных на рис.3. Если пользователь сам по-
ложил на кнопку гравировку , то значение свойства Kind
автоматически изменится на
bkCustom.