2 … 6 : strDay:=’Рабочий сутки’;
7 : strDay: = ‘Маленький сутки’
else strDay:=’Выходной сутки’;
end;
функции и Процедуры, реализующие диалоговые окна
Процедура ShowMessage, функции MessageDlg, MessageDlgPos и MessageBox отображают окно вывода сообщений, а функции InputBox и InputQuery — окно для ввода информации.
Процедура ShowMessage (const Msg: String) отображает окно сообщения с кнопкой ОК. Заголовок содержит наименование исполняемого файла приложения, а строка Msg выводится как текст сообщения.
procedure TForm1.Button1Click(Sender: TObject);
Begin
ShowMessage(‘Сообщение’);
end;
Функция MessageDlg(const Msg: String; AType: TMsgDlgType; AButtons: TMsgDlgButtons; Helpctx: Longint) : word отображает окно сообщения в центре экрана и дает возможность приобрести ответ пользователя. Параметр Msg содержит отображаемое сообщение.
Окно сообщения может относиться к разным типам и наровне с сообщением содержать картины. Тип окна сообщения определяется параметром АТуре, что может принимать следующие значения:
mtWarning (окно содержит тёмный восклицательный символ в желтом треугольнике и заголовок Warning);
mtError (окно содержит белый косой крест в красном круге и заголовок Error);
mtInformation (окно содержит светло синий букву «i» в белом круге и заголовок Information);
mtConfirmation (окно содержит светло синий символ «?» в белом круге и заголовок Confirmation);
mtCustom (окно не содержит картины, в заголовке выводится наименование исполняемого файла приложения).
Параметр AButtons задает комплект кнопок окна и может принимать каждые комбинации следующих значений:
mbYes (кнопка Yes);
mbAbort (кнопка Abort);
mbNo (кнопка No);
mbRetry (кнопка Retry);
mbOk (кнопка OK);
mbIgnore (кнопка Ignore);
mbCancel (кнопка Cancel);
mbAll (кнопка All);
mbHelp (кнопка Help);
Для значения параметра AButtons имеются две константы — mbYesNoCancel и mbOKCancel, задающие предопределенные комплекты кнопок:
mbYesNoCancel = [mbYes, mbNo, mbCancel];
mbOKCancel = [mbOK, mbCancel]
При нажатии любой из указанных кнопок (не считая кнопки Help) диалоговое окно закрывается, а итог (свойство ModalResult) возвращается функцией MessageDlg.
Функция MessageDlgPos(const Msg: String; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer) : Word отличается от функции MessageDlg наличием параметров Х и Y, управляющих положением окна на экране.
Функция InputBox(const ACaption, APrompt, ADefault: String): String отображает диалоговое окно строчка текста. Окно выводится в центре экрана и содержит поле ввода с надписью, и кнопки ОК и Cancel.
Параметр ACaption задает заголовок окна, а параметр APrompt содержит поясняющий текст к полю ввода. Параметр ADefault определяет строчок, возвращаемую функцией при отказе пользователя от ввода информации (нажатие кнопки Cancel либо клавиши ).
Пример применения функции InputBox:
rezult := InputBox(‘Город’, ‘Введите наименование города’, ‘Владикавказ’);
Приведенная процедура отображает окно запроса на ввод заглавия города. По умолчанию предлагается Владикавказ.
Функция InputQuery (const ACaption, APrompt: String; var Value: String): Boolean отличается от функции InputBox тем, что вместо третьего параметра — строчка по умолчанию — употребляется параметр Value, что при подтверждения ввода содержит введенную пользователем строчок.
В качестве результата функция возвращает логическое значение, разрешающее выяснить, как закончен диалог. В случае если надавлена кнопка ОК, то функция возвращает значение True, в случае если надавлена кнопка Cancel либо клавиша — значение False. C помощью функции InputQuery выводится окно запроса
Var
NewString:string;
Begin
NewString := ‘Владикавказ’;
if InputQuery(‘Город’, ‘Введите наименование города’, NewString) = true
then ShowMessage(‘Вы надавили кнопку Ok’)
else ShowMessage(‘Вы надавили кнопку Cancel’);
end;
В указанной выше процедуре посредством функции InputQuery выводится окно запроса, подобное ранееприведенному. Возвращаемый функцией InputQuery итог анализируется и выводится соответствующее сообщение.
Program to Print Day using Day Number (Switch Case).