Использование InputBox и InputQuery
Falk0ner, вс, 06/07/2008 - 15:34.
Данная функция демонстрирует 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;
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;
Взято с http://delphiworld.narod.ru
Отправить комментарий