Диалог для ввода значения

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Чтобы вызвать диалог, в котором бы пользователь должен был ввести что-нибудь, достаточно воспользоваться функцией InputBox или InputQuery. Эти функции создают диалог с полем ввода, надписью над ним и двумя кнопками: «OK» и «Cancel». Параметры управляют заголовком окна, надписью над полем ввода и начальным значением. Функции отличаются тем, что после вызова InputBox нельзя понять: пользователь нажал «OK», не изменив текст, или «Cancel», а текст был восстановлен самой фунцией. InputQuery возвращает значение типа boolean по которому можно определить, какую кнопку нажал пользователь. Пример:

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Caption := InputBox(‘Заголовок окна’,

‘Введите, пожалуйста, заголовок окна:’, Form1.Caption);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

s: string;

begin

s := Form1.Caption;

if not InputQuery(‘Заголовок окна’,

‘Введите, пожалуйста, заголовок окна:’, s)

then s := ‘No value’;

Form1.Caption := s;

end;

{/codecitation}

Добавить комментарий