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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

6
Некоторые свойства компонента BitBtn:
• Margin
Расстояние в пикселах от края кнопки до гравировки
• Spacing
Расстояние в пикселах от гравировки до надписи
• Style
Стиль оформления кнопки, зависящий от типа операцион-
ной системы
Добавим к нашему проекту вторую форму и подключим ее к первой
8. Добавьте в про-
ект новую форму
File|New Form… или клик по быстрой кнопке
на панели инструментов
9. Назовите новую форму AdditionalTab Свойство Name
10. В строке заголовка формы напишите Компонен-
ты закладки Additional
Свойство Caption
11. Сохраните форму в каталог, где находится Ваш
проект под именем forma2
File|Save As…
Для того чтобы при вызове вторая форма появлялась в середине экра-
на, нужно изменить ее свойство Position. По умолчанию свойство уста-
новлено в poDesigned. Это означает, что координаты отображения формы
во время выполнения программы будут совпадать с координатами отобра-
жения формы во время ее создания.
12. Сделайте так, чтобы при открытии
вто-
рой формы она появлялась в центре экрана
Значение poScreenCenter
свойства формы Position
Для того чтобы формы «видели» друг друга, нужно к модулю каждой
формы подключить модуль другой из них. Для корректной работы формы
это надо сделать не в интерфейсной части (как обычно), а в исполняемой
части модуля после служебного слова Implementation.
Напомним, что при работе с формой переход от формы к ее модулю
и
обратно осуществляется с помощью клавиши F12. Для вызова другой фор-
мы можно вызвать меню форм командой Veiw|Forms и выбрать нужное имя
формы из списка.
13. Подключите к модулю второй формы
модуль первой
F12. Найдите нужный участо
к
кода и допишите его:
implementation
uses forma1;
14. Откройте форму StandardTab
Veiw|Forms или Shift+F12
15. Подключите к
модулю первой
формы модуль
второй
F12. Найдите нужный участок кода и допишите его:
implementation
uses forma2;
16. Напишите об-
работчик собы-
тия OnClick кноп-
ки Дальше, уби-
рающий с экрана
форму Standard-
procedure TStandardTab.
BitBtn1Click(Sender: TObject);
begin
{Убрать с экрана окно формы StandardTab}
StandardTab.Hide;
{Показать на экране окно формы AdditionalTab}

Страницы