Данная функция демонстрирует 3 очень мощных и полезных процедуры, интегрированных в Delphi.
Диалоговые окна InputBox и InputQuery позволяют пользователю вводить данные.
Функция InputBox используется в том случае, когда не имеет значения что пользователь выбирает для закрытия диалогового окна - кнопку OK или кнопку Cancel (или нажатие клавиши Esc). Если вам необходимо знать какую кнопку нажал пользователь (OK или Cancel (или нажал клавишу Esc)), используйте функцию InputQuery.
ShowMessage - другой простой путь отображения сообщения для пользователя.
|
Code: |
|
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; |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!