Главная страницаОбратная связьКарта сайта

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

Чтобы вызвать диалог, в котором бы пользователь должен был ввести что-нибудь, достаточно воспользоваться функцией 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;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Диалог для ввода значения", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info