Страница Additional дополнительные палитры VCL

ЛАБОРАТОРНАЯ РАБОТА №2.

Тема: Страница Additional (дополнительные) палитры VCL.

Построим вторую страницу нашего приложения "StandardTab".

1. Добавьте новую форму в проект, который был начат на предыдущем занятии: File|New Form. Установите свойство Name этой формы как "AdditionalTab". Установите свойство Caption "The Additional Tab".

2. Выполните File| Save и сохраните новую форму под именем ADDITIONAL.PAS. Сделайте так, чтобы форма появлялась в середине экрана. Для этого установите свойство Position. По умолчанию это свойство установлено в "poDesigned". Это означает, что она появляется в том положении, в котором конструировалось. Щелкните на poDesigned - откроется окно списка. Выберите poScreenCenter. Эта установка действует в момент активизации формы.

3. Добавьте имя Addition в выражение USES начальной формы (Standard).

4. Вернитесь к форме Standard Tab и добавьте код, позволяющий получить доступ к новой странице, чтобы увидеть ее при тестировании. Из меню выберите View | Forms для вызова меню форм и выберите StandardTab. Дважды щелкните на Button4 (Next Page) и введите для ее события Click следующий код: procedure TStandardTab. Button4 Click ( Sender: Tobject);

begin

StandardTab.Hide;

AdditionalTab.Show;

end ;

5. Вернитесь к форме Additional Tab. Поместите три компонента BitBtn (страница Additional) в нижний левый угол формы. Для BitBtn1 и BitBtn2 установите в свойстве Kind значение bkCustom. Установите для свойства Caption BitBtn1 текст "Back", а для BitBtn2 - текст "Next". Компонента BitBtn допускает размещение на кнопке графического элемента, называемого иногда гравировкой (glyph). Гравировки представляют собой просто маленькие битовые матрицы, в которых может содержаться несколько различных значков, отображаемых в зависимости от состояния BitBtn или SpeedButton. Можно использовать готовые гравировки, поставляемые в комплекте Delphi, либо создавать собственные с помощью редактора изображений (Image Editor в меню Tools). В данном примере мы используем битовые матрицы, поставляемые с Delphi. Для компонента BitBtn1 дважды щелкните на Tbitmap в свойстве Gluph. При этом запускается редактор картинок. Но реально редактировать картинку на этом экране не удается, редактор позволяет просто выбрать имя файла, содержащего интересующую вас битовую матрицу, загрузить и просмотреть файл, прежде, чем присвоить кнопке. Щелкните на кнопке Load - откроется диалоговое окно выбора файла. Перейдите в каталог ..... Borland delphi images buttons (т. е. в каталог, в котором записана Delphi) и выберите ARROW1L.BMP. Вы должны увидеть красную и белую стрелки, указывающие налево. Красная стрелка отображается в активном состоянии кнопки, белая - в выключенном. Вы можете переключать свойство Enabled (включено) этой кнопки между состояниями True и False и наблюдать различия в изображении. Убедитесь, что после этого свойство Enabled осталось в состоянии true.

6. Повторите теже шаги, что для BitBtn, и установите для BitBtn2 гравировку ARROW1R.BMP.

7. Установка для BitBtn3 оказывается проще, благодаря стандартному типу, который будет использован в свойстве Kind. Для BitBtn3 щелкните на Kind и выберите bkClose. Тем самым кнопке припишется изображение открытой двери, а свойство Caption будет установлено в "Close". Для дальнейшего заметьте, что у свойства Kind имеется 10 приведенных ниже типов-заготовок и один тип bkCustom, позволяющий пользователям создавать собственные типы кнопок.

bkAbout О программе

bkAll Все

bkCancel Отменить

bkClose Закрыть

bkCustom Специальный

bkHelp Справка

bkIgnore Игнорировать

bkNo Нет

bkOk ОК (готово)

bkRetry Повторить

bkYes Да

Названия типов достаточно объясняют их назначение. Набор представляет кнопки, повсеместно используемые в приложениях Windows. Тип bkCustom используется для создания новых типов кнопок, как в нашем примере - для BitBtn1 и BitBtn2.

8. Для придания кнопкам вида аккуратной группы добавьте компонент Bevel. Выберите компонент из палитры Additional и прорисуйте ею рамку вокруг кнопок. Ваши кнопки окажутся расположенными на блоке в виде утопленной панели.

9. Добавьте код действия кнопок. Дважды щелкнув на BitBtn, в событие Click добавьте:

procedure TAdditionalTab.BitBtn1Click (Sender: Tobject);

begin

StandardTab.Show;

AdditionalTab.Hide;

end;

К коду для BitBtn2 обратимся позднее, а сейчас добавьте в событие Click для BitBtn3:

procedure TAdditionalTab.BitBtn3Click (Sender: Tobject);

begin

StandardTab.Close;

end;

10. Для правильной оработы кнопки Close в событие Close формы добавьте следующий код:

procedure TAdditionalTab.FormClose (Sender: Tobject; var Action: TCloseAction);

begin

Application.Terminate;

end;

Если этого не сделать, при выборе кнопки Close форма будет закрываться, но приложение останется

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать