БОЛЬШОЙ FAQ ПО DELPHI



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

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




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ