Приветствие
Цель работы - создать программу, выполняющую следующие действия:
1. После запуска программы по щелчку мышью на кнопке «Приветствие» появляется сообщение «Первые успехи».
2. Для выхода из программы необходимо щелкнуть мышью на кнопке «Закрыть».
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: метку Label и две кнопки Button.
3. Выполнить следующие действия:
Таблица 2.
Выделенный объект | Вкладка окна
Object Inspector |
Имя свойства/
имя события |
Действие |
Form1 | Properties | Caption | Установка имени формы «Проект2» |
Label1 | Properties | Caption | Ввод текста надписи «Первые успехи» |
Button1 | Properties | Caption | Установка имени кнопки «Приветствие» |
Events | OnClick | Label1.Caption:=’Первые успехи’ | |
Button2 | Properties | Caption | Установка имени кнопки «Закрыть» |
Events | OnClick | Close; |
4. Сохраните проект, запустите и протестируйте его.
Задание для самостоятельного выполнения
1. Сделать шрифт выводимой реплики «Первые успехи!» отличным от стандартного по виду, цвету и размеру.
Подсказка. В Object Inspector дважды щелкнуть справа от названия свойства Font.
2. Заменить вид кнопки «Выход» на более привлекательный.
Подсказка. Для замены кнопки удалить существующую, а другую BitBtn найти в палитре компонентов на вкладке Additional. Затем изменить ее вид с помощью свойства Kind.
3. Сделать так, чтобы после нажатия кнопки «Приветствие» на экране появлялось сообщение «Первые и не последние!».
Подсказка. Изменить значение свойства Caption метки Labell при реакции кнопки Buttonl на событие OnClick.
Листинг программы
unit Unitl;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;
type
TForral = class(TForm)
Labell: TLabel;
Buttonl: TButton;
BitBtnl: TBitBtn;
procedure ButtonlClick(Sender: TObject);
private
{Private declarations }
public
{Public declarations }
end;
var
Forml: TFonnl;
implementation
{$R *.DFM)
procedure TForml.ButtonlClick(Sender: TObject);
begin
Label1.Caption:='Первые и не последние!';
end;
end.