Лабораторная работа 2. Разработка первого проекта
Постановка задачи.
Создать программу, выполняющую следующие действия.
После запуска программы по щелчку мышью на кнопке «Приветствие» появляется сообщение «Первые успехи!» (рис.3).
Для выхода из программы необходимо щелкнуть мышью на кнопке «Выход».
Пояснение. Новым в этой работе является использование компонентов Label и Button палитры компонентов Standart и обработка события OnClick – нажатия кнопки.
План разработки программы
Открыть новый проект.
Разместить на форме экземпляры компонентов: метку Label и две кнопки Button (рис.4).
Выделить кнопку Button2, перейти в Object Inspector на вкладку Properties, найти Caption (заголовок) и изменить заголовок Button2 на заголовок «Выход».
Рис 3. Рис.4.
Перейти на вкладку Events окна Object Inspector, найти событие OnClick, справа от него дважды щелкнуть мышью. Ввести лишь одну команду: Close; (обязательно поставить точку с запятой после слова «Close»).
Сохранить код программы и проект под именами, например, pr-1.pas и pr-1.dpr.
Запустить программу, затем открыть окно проекта, щелкнув на кнопке «Выход».
Выделить формы, в свойстве Caption окна Object Inspector заменить на имя формы Form1 на «Проект-1». Это и будет заголовок основного окна программы.
Выделить кнопку Button1, в свойстве Caption окна Object Inspector заменить на имя кнопки Button1 на «Приветствие». При необходимости увеличить длину кнопки.
Перейти на вкладку Events окна Object Inspector и найти событие OnClick, справа от него дважды щелкнуть мышью. Ввести следующий код:
Label1. Caption:= Первые успехи! ;
Сохранить проект окончательно, запустить и протестировать его.
Краткое описание плана разработки программы
В этом разделе показано, как можно кратко описать план разработки программы. Для краткости в следующих проектах будем использовать этот способ записи.
Открыть новый проект.
Разместить на форме экземпляры компонентов: метку Label и две кнопки Button (см. рис. 4).
Выполнить следующие действия:
Выделенный
Объект
Вкладка окна
Object Inspector
Имя свойства/
имя события
Действие
Button2
Properties
Caption
Установка имени
кнопки: «Выход»
Events
OnClick
Close;
Сохранить код программы и проект под именами, например,pr-1. pas и pr-1. dpr.
Запустить программу, затем закрыть окно проекта, щелкнув на кнопке «Выход».
Выполнить следующие действия:
-
Выделенный
Объект
Вкладка окна
Object Inspector
Имя свойства/
имя события
Действие
Form1
Properties
Caption
Установка имени формы: «Проект-1»
Button1
Properties
Caption
Установки имени кнопки: «Приветствие»
Events
OnClick
Label1. Caption:= Первые успехи! ;
Сохранить проект, запустить и протестировать его.
Задание для самостоятельного выполнения
Сделать шрифт выводимой реплики «Первые успехи!» отличным от стандартного по виду, цвету и размеру.
Подсказка. В Object Inspector дважды щелкнуть справа от названия свойства Font.
Заменить вид кнопки «Выход» на более привлекательный.
Подсказка. Для замены кнопки надо удалить существующую, а другую найти в палитре компонентов на вкладке Additional. Она самая левая, называется BitBtn. Затем изменить ее вид с помощью свойства Kind.
Сделать так, чтобы после нажатия кнопки «Приветствие» на экране появилось сообщение «Первые и не последние!».
Подсказка. Изменить значение свойства Caption метки Label1 при реакции кнопки Button1 на событие OnClick.
Запустить исполняемый файл pr-1.exe в среде не Delphi, а Windows.
Подсказка. Выйти из Delphi в Windows. Использовать диспетчер программ или проводник Windows.
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
private
( Private declarations )
public
(Public declarations )
end;
var
Form1: TForm1;
implementation
(SR *.DFM)
procedure TForm1. Button1Click(Sender: TObject);
begin
Label1.Caption:='Первые и не последние!';
end;
end.