План разработки программы

Создайте новую форму. Вставьте в обработчик события OnCloseQuery новой формы следующие строки:

CanClose:= MessageDlg ('Вы уверены?' , mtConfirmation, [mbYes, mbNo], 0) = IDYES;

CanClose:= MessageDlg ('Вы уверены?' , mtConfirmation, [mbYes, nibNo], 0) = IDYE

MessageDlg является функцией, предоставляемой Delphi для организации диалога программы с пользователем. Это сложная функция и ей необходимо передать четыре элемента информации, называемые параметрами (parameters) или аргументами (arguments).

Первым параметром является сообщение, которое вы хотите отобразить на экране, заключенное в одинарные кавычки. Второй параметр представляет собой константу, определяющую тип диалогового окна. Возможные значения — константы mtWaming, mt Error, mtInformation и mtConfirmation. С каждой константой ассоциирована специальная пиктограмма, и для каждой имеется специфический заголовок диалогового окна. В нашем случае пиктограмма имеет вид большого знака вопроса, а заголовок — Confirm (подтвердите).

Третьим параметром служит набор констант, определяющих, какие кнопки должны присутствовать в диалоговом окне. Список заключен в квадратные скобки и может содержать mbYes, mbNo, mbOk, mbCancel и mbHelp. Если в списке присутствует mbHelp и ваша программа имеет связанный с ней файл справки Windows, нажатие кнопки Help вызовет появление темы справки, ассоциированной с числом в четвертом параметре. Наконец, функция MessageDlg возвращает константу, определяющую, какую кнопку нажал пользователь. Если возвращенным значением является не IDYES, программа не сможет завершить своей работы. Старайтесь не злоупотреблять использованием функции MessageDlg.

Запустите программу, затем дважды щелкните на пиктограмме ее системного меню, чтобы прекратить работу программы. Появится диалоговое окно с сообщением, требующее подтверждения. Если ответить No, то программа не прекратит работы.

Практическая работа Delphi_03

Создать программу, выполняющую следующие действия:

(После запуска программы по щелчку мышью на кнопке «Приветствие» появляется сообщение «Первые успехи!». Для выхода из программы необходимо щелкнуть мышью на кнопке «Выход».)

План разработки программы.

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: метку Label и две кнопки Button.

3. Выделить кнопку Button2, перейти в Object Inspector на вкладку Properties, найти Caption (заголовок) и изменить заголовок Button2 на заголовок «Выход».

4. Перейти на вкладку Events окна Object Inspector, найти событие OnClick, справа от него дважды щелкнуть мышью. Ввести лишь одну команду: Close; (обязательно поставить точку с запятой после слова «Close»),

5. Сохранить код программы и проект под именами, например, pr_1.pas и pr_1.dpr.

6. Запустить программу, затем закрыть окно проекта, щелкнув на кнопке «Выход».

7. Выделить форму, в свойстве Caption окна Object Inspector заменить имя формы Form1 на «Проект_1». Это и будет заголовком основного окна программы.

8. Выделить кнопку Button1, в свойстве Caption окна Object Inspector заменить имя кнопки Button1 на «Приветствие». При необходимости увеличить длину кнопки.

9. Перейти на вкладку Events окна Object Inspector и найти событие OnClick, справа от него дважды щелкнуть мышью. Ввести следующий код:

Label1. Caption: = ' Первые успехи! ' ;

10. Сохранить проект окончательно, запустить и протестировать его.

Краткое описание плана разработки программы

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

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: метку Label и две кнопки Button.

3. Выполнить следующие действия:

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/имя события	Действие
Button2	Properties.	Caption	Установка имени кнопки: «Выход»
	Events	OnClick	Close;

4. Сохранить код программы и проект под именами, например, pr_l.pas и pr_l.dpr.

5. Запустить программу, затем закрыть окно проекта, щелкнув на кнопке «Выход».

6. Выполнить следующие действия:

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
Form1	Properties	Caption	Установка имени формы: «Проект-1»
Button1	Properties	Caption	Установка имени кнопки: «Приветствие»
	Events	OnClick	Label1.Caption:= 'Первые успехи!';

7. Сохранить проект, запустить и протестировать его.

Задание для самостоятельного выполнения

1. Сделать шрифт выводимой реплики «Первые успехи!» отличным от стандартного по виду, цвету и размеру.

Подсказка, В Object Inspector дважды щелкнуть справа от названия свойства Font.

2. Заменить вид кнопки «Выход» на более привлекательный. Подсказка. Для замены кнопки надо удалить существующую, а другую найти в палитре компонентов на вкладке Additional. Она самая левая, называется BitBtn. Затем изменить ее вид с помощью свойства Kind.

3. Сделать так, чтобы после нажатия кнопки «Приветствие» на экране появлялось сообщение «Первые и не последние!».

Подсказка. Изменить значение свойства Caption метки Label1 при реакции кнопки Button1 на событие OnClick.

Запустить исполняемый файл pr_1.exe в среде не Delphi, a Windows.

4. Записать текст программы Unit1.pas в тетрадь.