Цель работы - создать программу, выполняющую следующие действия: 1. После запуска программы по щелчку мышью на кнопке "Приветствие" появляется сообщение "Первые успехи".

Практическая работа № 3 Приветствие

Рис. 15.

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;
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.

Практическая работа № 2 Создание консольного приложения || Оглавление || Практическая работа № 4 "Случайный выбор"


Практикум по Delphi для решения прикладных задач



Новости за месяц

  • Октябрь
    2021
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс