procedure TForm1.N5Click (Sender : TObject);

procedure TForm1. N5Click (Sender: TObject);

begin Close;

end;

Эта процедура обрабатывает событие — щелчок мыши на элементе меню «Выход».

Раздел инициализации находится в самом конце модуля и является необязательным. Если же он существует, то начинается со слова begin и заканчивается словом end..

> Перечислите процедуры обработки событий, которые необходимо ввести в программу главного модуля приложения «Школьный тест», для того чтобы тест заработал.

Разрабатываемое нами приложение состоит из главной формы, в которую мы установили меню. С помощью команд меню «О программе» и «Инструкция» нам необходимо вызвать дополнительные формы в виде информационных окон. Готовые шаблоны для них мы выберем из диалогового окна New Items, которое вызывается нажатием кнопки New в панели инструментов.

Задание. Создание окна «О программе" (включает в себя картинку, компонент Label и кнопку) на основе формыAboutbox и подключение модуляAboutbox к главной формеMainform.

> В панели инструментов с помощью кнопки New вызовите диалоговое окно New Items и выберите форму Aboutbox.

Перед нами появится стандартное окно AboutBox, содержащее следующие элементы:

" графический рисунок, который вставляется в форму с помощью кнопки Image (изображение) из палитры компонентов Additional:

° текстовые компоненты (TIabel):

° кнопку ОК.

> В Инспекторе Объектов в свойствеCaption формыAboutbox запишите заголовок окна О программе.

> Активизируйте компонент Image, щелкнув по нему мышью. Вокруг рисунка появится рамка с черными квадратиками.

> Зацепляя мышью, черные квадратики рамки, раздвиньте границы компонента Image до размеров вставляемого графического объекта.

: •• Внутри рамки дважды щелкните мышью.

> В появившемся окне Picture Editor (Редактор Рисунка) выполните команду Load

> В появившемся окне Load Picture в окне Папки перейдите в каталог Delphi\ Images\Splash\256color.

> В окне Имя файла отметьте файл SHIPPING. BMP (или другой, по желанию) и нажмите ОК

> Нажав кнопку ОК в окне Picture Editor, перенесите рисунок из этого окна в подготовленную рамку формы «О программе».

> Настройте Инспектор Объектов на форму Aboutbox и установите свойству Stretch (масштабирование) параметр true.

Рисунок полностью поместится в рамку.

> Удалите из формы все текстовые компоненты (TIabel). Для этого каждый компонент выделите щелчком мыши и удалите нажатием клавиши Delete.

> Добавьте в форму Aboutbox компонент Label (из палитры компонентов Standart). В него будет вводиться текст.

> Для компонента Label в Инспекторе Объектов установите свойству AutoSize параметр false (это свойство устанавливает длину Label по длине введенной строки). Свойству Alignment установите параметр taCenter для размещения текста по центру компонента.

> С помощью мыши придайте компоненту Label необходимые размеры и установите его в правом верхнем углу окна.

> В свойстве Color установите цвет фона.

> В свойстве +Font щелчком мыши на кнопке с тремя точками вызовите диалоговое окно Шрифт и установите цвет, размер и вид шрифта.

Для записи текста разными шрифтами последовательно вводятся несколько Label и для каждого из них устанавливаются свои свойства. В каждый Label помещается не более 256 символов

> В палитре компонентов выберите кнопку ОК.

⇐ Предыдущая 123 4 5 6 7 8 9 10 Следующая ⇒