БОЛЬШОЙ FAQ ПО DELPHI



Использование InputBox и InputQuery

Решил Вовочка сексуальный ник себе завести. Думал-думал, как поприличнее выразиться... и придумал: put_in

Данная функция демонстрирует 3 очень мощных и полезных процедуры, интегрированных в Delphi.

Диалоговые окна InputBox и InputQuery позволяют пользователю вводить данные.

Функция InputBox используется в том случае, когда не имеет значения что пользователь выбирает для закрытия диалогового окна - кнопку OK или кнопку Cancel (или нажатие клавиши Esc). Если вам необходимо знать какую кнопку нажал пользователь (OK или Cancel (или нажал клавишу Esc)), используйте функцию InputQuery.

ShowMessage - другой простой путь отображения сообщения для пользователя.


 procedure TForm1.Button1Click(Sender: TObject);
 var
   s, s1: string;
   b: boolean;
 begin
   s := Trim(InputBox('Новый пароль', 'Пароль', 'masterkey'));
   b := s <> '';
   s1 := s;
   if b then
     b := InputQuery('Повторите пароль', 'Пароль', s1);
   if not b or (s1 <> s) then
     ShowMessage('Пароль неверен');
 end;
 




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



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



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