Студопедия — Функции организации диалога
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Функции организации диалога






Справочная информация

 

Функции преобразования

function AnsiUpperCase(const S: string): string

преобразует символы строки S к верхнему регистру;

применима к русским текстам.

function LowerUpperCase(const S: string): string

преобразует символы строки S к нижнему регистру;

применима к русским текстам.

function Pos(SubStr: string; S: string): Integer

возвращает позицию (индекс) первого вхождения SubStr в S. Если SubStr нет в S, возвращается 0.

function FloatToStr(V: Extended): string

преобразует действительное число V в строку.

function FloatToStrF(V,f,k,m): string

преобразует действительное число V в строку с форматной записью.

f-формат, определяет способ изображения числа:

ffGeneral – универсальный, ffExponent – научный, ffFixed – с фиксированной точкой;

k – общее число цифр числа;

m – число цифр в дробной части числа.

function IntToStr(K: Integer): string

преобразует целое число K в строку.

function StrToFloat(const S: string): Extended

преобразует строку S в действительное число.

function StrToInt(const S: string): Integer

преобразует строку S в целое число.

Функции организации диалога

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;

Функция отображает окно, в котором пользователю задается какой-то вопрос и анализируется полученный ответ, зависящий от нажатой кнопки.

Соответствующими фактическими параметрами должны быть

  • Msg – строка, выводимая в окно сообщения,
  • DlgType – вид окна сообщения. В каждом окне отображаются стандартный текст,

а ниже соответствующая пиктограмма определяющее текст заголовка окна и рисунок значка на окне (например, Confirm и ).

Возможные значения и текст на соответствующей пиктограмме:

- mtWarning окно предупреждений, заголовок Warning и черный восклицательный знак на желтом фоне;

- mtError – окно ошибок, заголовок Error и красный круг с белым крестом;

- mtInformation – информационное окно, заголовок Information и буква i на белом фоне;

- mtConfirmation – окно подтверждения, заголовок Confirm и знак вопроса на белом фоне;

- mtCustom – заказное окно, пиктограмма отсутствует, а в качестве заголовка используется имя файла приложения

  • Buttons –множество значений, определяющее какие кнопки будет содержать информационное окно. Значения параметра выбираются из множества типа TMsgDlgBtn = [mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp]. Значения можно задавать по отдельности или сразу несколько, заключенными в квадратные скобки. Среди множества значений определены три константы, соответствующие часто используемым сочетаниям: mbYesNoCancel, mbOKCancel, mbAbortRetryIgnore. Эти константы являются предопределенными множествами и при исползовании их не надо заключать в квадратные скобки.
  • HelpCtx – номер страницы справочной системы (целое число), созданной пользователем и вызываемой при нажатии клавиши <F1>. При отсутствии такой страницы значение параметра задается равным 0 (нет справки).
  • Функция возвращает число, соответствующее нажатой кнопке (каждому значению

базового типа соответствует предопределенная именованная константа) вида:

mrYes, mrNo, mrOK, mrCancel, mrAbort, mrRetry, mrIgnore, mrAll, mrNoToAll, mrYesToAll, mrHelp

 

  • Примеры записи.

1. Диалог при окончании работы приложения

If MessageDlg('Закончить работу с приложением?', mtConfirmation,

[mbYes, mbNo],0) = mrYes then

Begin

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

Close;

End;

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

 

2. Возникла ситуация, когда решение должен принять пользователь

case MessageDlg('Продолжить работу?', mtConfirmation, [mbYes, mbNo],0) of

mrYes:; // продолжить выполнение процедуры

mrNo: exit; //выход из процедуры

end;

 

3. Необходимо принять решение при закрытии файла

//Если текст новый или был изменен, то открывается окно диалога 'Сохранить данные?'[mbYes, mbNo, mbCancel]

if Memo1.Modified then begin

d:=MessageDlg('Сохранить данные?', mtConfirmation,[mbYes, mbNo, mbCancel], 0);

case d of

mrYes: begin //да, сохранить!

if s<>'' then // сохранить в том же, редактируемом файле

Memo1.Lines.SaveToFile(S)

else // сохранить в файле, который следует выбрать в диалоге SaveAs...

N6Click(Self);//вызов обработчика сохранить как

//считать, что текст не модифицирован

Memo1.Modified:=false;

End;

mrCancel://не сохранять и вернуться к редактированию

exit;

mrNo:;//не сохранять

end;//case

end;//if

 

function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;

Отображает окно диалога с заголовком ACaption, с пояснением, что должен ввести пользователь APrompt в строке ввода, соответствующей параметру Value, и кнопками OK и Cancel. При щелчке на кнопке OK функция вернёт значение true и текст из поля в параметре Value. При щелчке на кнопке Cancel функция вернёт значение false и пустую строку в параметре Value.

  • Пример записи.

Диалог при задании номера группы

Group:= 'ИУ2-21':

Group:=InputQuery ('Введите номер группы', 'Например', '');

function InputBox(const ACaption, APrompt, ADefault: string): string;

Отображает окно диалога с заголовком ACaption, с пояснением, что должен ввести пользователь APrompt в строке ввода, в которой изначально будет отображен текст, заданный параметром ADefault, и кнопками OK и Cancel. При щелчке на кнопке OK функция вернёт значение текст из поля ввода, а при щелчке на кнопке Cancel функция вернёт значение параметра ADefault даже если пользователь изменил текст в поле ввода.

  • Пример записи.

Диалог при задании имени файла

S:= InputBox ('Ввод имени файла', 'Введите имя файла', '');

 

function ShowMessage(const Msg: string): string;

Отображает простое окно сообщения Msg и кнопкой ОК.

  • Пример записи.

ShowMessage('Список пуст')

 

 







Дата добавления: 2015-09-04; просмотров: 304. Нарушение авторских прав; Мы поможем в написании вашей работы!



Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...

Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...

Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...

Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

Объект, субъект, предмет, цели и задачи управления персоналом Социальная система организации делится на две основные подсистемы: управляющую и управляемую...

Законы Генри, Дальтона, Сеченова. Применение этих законов при лечении кессонной болезни, лечении в барокамере и исследовании электролитного состава крови Закон Генри: Количество газа, растворенного при данной температуре в определенном объеме жидкости, при равновесии прямо пропорциональны давлению газа...

Ганглиоблокаторы. Классификация. Механизм действия. Фармакодинамика. Применение.Побочные эфффекты Никотинчувствительные холинорецепторы (н-холинорецепторы) в основном локализованы на постсинаптических мембранах в синапсах скелетной мускулатуры...

Демографияда "Демографиялық жарылыс" дегеніміз не? Демография (грекше демос — халық) — халықтың құрылымын...

Субъективные признаки контрабанды огнестрельного оружия или его основных частей   Переходя к рассмотрению субъективной стороны контрабанды, остановимся на теоретическом понятии субъективной стороны состава преступления...

ЛЕЧЕБНО-ПРОФИЛАКТИЧЕСКОЙ ПОМОЩИ НАСЕЛЕНИЮ В УСЛОВИЯХ ОМС 001. Основными путями развития поликлинической помощи взрослому населению в новых экономических условиях являются все...

Studopedia.info - Студопедия - 2014-2024 год . (0.009 сек.) русская версия | украинская версия