7.1. Разработка проекта Dialog
Основные положения
Новым в этой программе является объект Строка ввода (TEdit) и объект Кнопка (TBitBtn), а также процедура обработки события (onKeyPress) для строки ввода.
Примечание. Все клавиши клавиатуры имеют определенные номера. Так, например, номер клавиши Enter - #13, клавиши Escape - #27, клавиши Space(пробел) - #32
Постановка задачи
Р
азработать
программу, с помощью которой пользователь
мог бы выполнить следующее: запустить
программу и ввести свое имя (например,
Петя) в прямоугольник с мигающим текстовым
курсором, затем нажать клавишу Enter (рис.
7.1).
Рис. 7.1. Внешний вид приложения
Появляется вопрос: «Петя, ты купил книгу по Delphi?». Если пользователь нажмет «Yes», то должна появиться реплика: «Молодец !», если он нажмет «No», то появится реплика: «Почему же? Надо приобрести эту книгу.». Для выхода из программы пользователь должен нажать кнопку Close.
Рекомендуемый план разработки программы
Открыть новый проект.
Разместить на форме компоненты в соответствии с рис. 7.2. Свойству Kind кнопки BitBtn1 придать значение Close.
Сохранить проект (в заранее созданной папке Dialog) под именем, например, dial.pas и dialog.dpr
Запустить программу, затем закрыть окно проекта кнопкой Close.
Выделить Label1, найти в Object Inspector свойство Caption и справа от него слово Label1 заменить на слова: «Введи свое имя и нажми Enter:».
Выделить компонент Edit1, найти в Object Inspector событие OnKeyPress и, дважды нажав левую кнопку мыши, вставить в модуль следующий код:
If key = #13
Then begin
Label2.Caption:=Edit1.Text + ', ты купил
книгу по Delphi?';
end;
Выделить кнопку Button1, изменить ее заголовок на «Yes». Найти в Object Inspector событие OnClick и, нажав дважды мышь, вставить следующий код:
Label3.Caption:='Молодец’;
Рис. 7.2. Внешний вид доработанного приложения
Аналогично изменить заголовок кнопки Button2 на «No» и в процедуру кнопки No вставить: Label3.Caption:=‘Почему же? Надо приобрести эту книгу.’ Убрать заголовки меток Label2 и Label3.
Сохранить проект, запустить и протестировать его. Поставленная задача выполнена. Программа, разработанная вами, работает.
7.2. Процедуры вызова диалоговых окон
В приложениях часто приходится отображать различные простые диалоговые окна, чтобы дать пользователю какие-то указания или задать несложный вопрос, на который возможен один из стандартных ответов: да, нет, отменить, прервать. При разработке проекта и отладке удобно пользоваться готовыми диалоговыми окнами и вызывающими их процедурами.
Простейшей из таких процедур является ShowMessage, отображающая окно сообщения с кнопкой OK. Она имеет вид
Procedure ShowMessage (const Msg: string);
Текст сообщения задается параметром Msg. Заголовок окна совпадает с именем выполняемого файла приложения.
Пример
if ParamCount<1
then begin
ShowMessage('Не задан файл текста');
Exit
end;
Имеется также похожая процедура ShowMessaggeFmt, позволяющая выводить в аналогичное окно форматированное сообщение.
Она имеет вид:
Procedure ShowMessageFmt (const Msg: string; params:array of const);
Прараметр Msg в этой процедуре задает строку описания формата, а параметр Params задает массив параметров, форматируемых строкой Msg.