47968 (Основы программирования в среде Delphi 7.0), страница 3

В приложениях часто приходится отображать различные простые диалоговые окна, чтобы понять какие-то указания или задать несложный вопрос, на который возможен один из стандартных ответов: да, нет, отменить, прервать. В законченном приложении желательно эти окна проектировать самостоятельно, обеспечивая единство стиля всех окон приложения, русские надписи и т.п.

А) простейшей из таких процедур является ShowMessage, отображающая окно сообщения с кнопкой ОК. Она имеет вид:

Procedure ShowMessage (const Msg: string);

Текст сообщения задается параметром Msg. Заголовок окна совпадает с именем выполняемого файла приложения.

Б) Похожая процедура ShowMessageFmt, позволяет выводить в аналогичное окно форматированное сообщение. Эта процедура имеет вид:

Procedure ShowMessageFmt (const Msg: string; Params array of const);

Параметр Msg в этой процедуре задает строку описания формата, а параметр Params задает массив параметров, форматируемых строкой Msg.

Приведем примеры использования этих процедур:

ShowMessage (» Работа приложения успешно завершена’);

ShowMessageFmt (» Задано% d параметров из % d ‘, [N1, N2]);

Последний оператор при N1=5, N2=7 выдаст сообщение с текстом: «Задано 5 параметров из 7».

В) Следующая функция отображает окно, в котором задается вопрос и анализируется полученный ответ – это функция MessageDlg. Она объявляется следующим образом:

Function MessageDlg (const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: Longint): Word;

Вызов этой функции отображает диалоговое окно и ожидает ответа пользователя. Сообщение в окне задается параметром функции Msg.

Вид окна задается параметром AType. Возможные значения параметра:

Параметр AButtons определяет, какие кнопки будут присутствовать в окне. Возможные значения видов кнопок:

Приведем пример использования функции MessageDlg, иллюстрирующий диалог при окончании работы приложения:

If MessageDlg (» Действительно хотите закончить приложение? ‘, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin

MessageDlg (» Работа приложения закончена ‘, mtInformation, [mbOk], 0);

Close;

End;

Первый вызов функции MessageDlg приводит к отображению окна типа mtConfirmation с вопросом о завершении приложения. Если пользователь нажимает кнопку Yes, то выводится второе окно типа mtInformation с сообщением о завершении работы приложения.

Заключение

В первую очередь Delphi предназначен для профессионалов-разработчиков корпоративных информационных систем. Может быть, здесь следует пояснить, что конкретно имеется в виду. Не секрет, что некоторые удачные продукты, предназначенные для скоростной разработки приложений (RAD – rapid application development) прекрасно работают при изготовлении достаточно простых приложений, однако, разработчик сталкивается с непредвиденными сложностями, когда пытается сделать что-то действительно сложное. Бывает, что в продукте вскрываются присущие ему ограничения только по прошествии некоторого времени.

Delphi такие ограничения не присущи. Хорошее доказательство тому – это тот факт, что сам Delphi разработан на Delphi. Можете делать выводы. Однако Delphi предназначен не только для программистов-профессионалов. Я читал в электронной конференции совершенно неожиданные для меня письма, где учителя, врачи, преподаватели ВУЗов, бизнесмены, все те, кто используют компьютер с чисто прикладной целью, рассказывали о том, что приобрели Delphi for Windows для того, чтобы быстро решить какие-то свои задачи, не привлекая для этого программистов со стороны. В большинстве случаев им это удается. Поразительный факт – журнал Visual Basic Magazine присудил свою премию Delphi for Windows.

Руководители предприятий, планирующие выделение средств на приобретение программных продуктов, должны быть уверены в том, что планируемые инвестиции окупятся. Поэтому одним из оцениваемых факторов должен быть вопрос – а легко ли найти специалиста по Delphi и сколько будет стоить его обучение, сколько времени специалист затратит на овладение продуктом. Ответ здесь получить весьма просто – любой программист на паскале способен практически сразу профессионально освоить Delphi. Специалисту, ранее использовавшему другие программные продукты, придется труднее, однако самое первое работающее приложение он сможет написать в течение первого же часа работы на Delphi. И, конечно же, открытая технология Delphi является мощным гарантом того, что инвестиции, сделанные в Delphi, будут сохранены в течение многих лет.

Список литературы

1. Архангельский А.Я. Программирование в Delphi. Учебник по классическим версиям Delphi. – М.: ООО «Бином-Пресс», 2006. – 1152 с.: ил.

2. Архангельский А.Я. Программирование в Delphi. – М.: ООО «Бином-Пресс», 2004. – 1152 с.: ил.

3. Гофман В.Э., Хомоненко А.Д. Delphi. Быстрый старт. – СПб: БХВ-Петербург, 2003. – 288 с.: ил.