Второй пример программы

Пример. Изготовим приложение, у которого в заголовке окна находится текст «Моя вторая программа», в окне располагаются надпись «Привет, Delphi!» и кнопка. За основу нового приложения возьмем проект Project 1.

1) Откройте проект Project1.dpr, сделав в «Проводнике» Windows двойной щелчок мышью на этом файле либо воспользовавшись командой File | Open Project.. главного меню Delphi.

2) Создайте на компьютере папку с именем Project2 и сохраните в ней текущее состояние проекта под именем Project2. Используйте для этого команду File / Save Project As... главного меню Delphi.

3) Чтобы результаты компиляции также сохранялись в папке Project2, измените настройки Delphi, указав папку Project2 в качестве Output directory и Unit output directory.

4) Измените заголовок окна. Для этого щелкните мышью по форме Form1, затем в инспекторе объектов на вкладке Properties найдите свойство Caption и укажите текст «Моя вторая программа» в качестве значения даны свойства.

5) Поместите на форму кнопку Button1. Для этого в па­литре компонентов на вкладке Standard найдите компо­нент Button (кнопка), щелкните по нему мышью, а затем щелкните мышью по форме Form1. В результате этих действий на форме появится компонент Button1. При этом изменится и исходный текст файла модуля Unit1.pas: и описании класса TForm1 появится описание объекта, Который программист поместил на форму, имеющее вид Button1: TButton.

6)C помощью инспектора объектов замените значение по умолчанию Button1 его свойства Caption на «Удалить надпись». Для такой надписи на кнопке не хватит места, Поэтому нужно сделать кнопку покрупнее. Удобнее всего использовать для этого мышь. Сначала нужно выделить кнопку, щелкнув по ней мышью. У кнопки появится пря­моугольная окантовка с точками. Ухватившись за одну из них мышью, можно менять размер кнопки.

7) Создайте для этой кнопки обработчик события OnClick, которое происходит, когда пользователь программы щелкает по кнопке Button1 мышью. Для этого нужно в инспекторе объектов перейти на вкладку Events (события) и сделать двойной щелчок мышью на пустом поле, находящемся справа от названия события OnClick. В этом поле появится надпись Button1Click, а в текст файла модуля Unit1.pas система Delphi вставит заготовку для обработчика данного события, имеющую вид

procedure TForml.ButtonlClick(Sender: TQbject);

begin

end;

Помимо этого, Delphi скопирует заголовок данного обработчика в описание класса TForm1, делая его доступны другим частям приложения. Заметьте, что заголовок обработчика содержит квалификатор TForm1, позволяющий компилятору определить, что данный обработчик связан с кнопкой, расположенной на форме Form1. А вот у копии заголовка, которая содержится в описании класса TForm1, такого квалификатора нет, поскольку он подразумевается по умолчанию.

8) Поместите между операторными скобками begin и еnd оператор Label1.Caption:=". Такой оператор в Паскале называется оператором присваивания. Его правая часть для свойства Caption должна содержать строку символов, окаймленную апострофами. В рассматриваемом примере он в качестве значения свойства Caption компонента Label1 задает пустую строку — текст, который не содержит ни одного символа. Это и обеспечит удаление надписи из окна, когда пользователь щелкнет по данной кнопке во время выполнения программы.

9) Проверьте результаты компиляции и выполнения программы, нажав клавишу F9.

10) Сохраните текущее состояние проекта в папке Project2 командой File | Save Project As... главного меню Delphi

Дата добавления: 2015-05-09