|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.06.2010, 12:06 | #1 |
Пользователь
Регистрация: 06.05.2010
Сообщений: 52
|
Вывод ошибки при неправильном вводе пароля
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin if Form4.ModalResult=mrOk then //если пользователь нажал на кнопку Ok, то if Edit1.Text='1' then //если набран необходимый пароль, то begin Form1.Show; //показать главное окно Exit; //выйти из этой процедуры end; Application.Terminate; { если все вышеуказанные условия не выполняются, то остановить программу } end; procedure TForm4.BitBtn1Click(Sender: TObject); begin Close; //закрыть это окно end; procedure TForm4.BitBtn2Click(Sender: TObject); begin Form4.ModalResult:=mrOk; //результат работы этого окна Close; //закрыть это окно end; end; На форме имеется Edit и 2 кнопки BitBtn (ОК и Отмена). Мне нужно, чтобы пользователю при неправильном вводе пароля выводилось сообщение о неправильности пароля. Подскажите пожалуйста код, и в какую строчку его вставить (в данном примере)??? |
12.06.2010, 13:05 | #2 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Код:
Всегда рад помочь!
|
12.06.2010, 13:16 | #3 |
Студент, не
Старожил
Регистрация: 29.01.2009
Сообщений: 2,067
|
Взято где-то в сети (не помню где ):
Код:
I am the First of Cyber Evolution...
I am the First to Program your Future... |
12.06.2010, 13:41 | #4 |
Пользователь
Регистрация: 06.05.2010
Сообщений: 52
|
Ввожу неправильный пароль, выходит сообщение. При закрытии этого сообщения окно полностью закрывается. А как сделать, чтобы оно оставалось?
|
12.06.2010, 13:45 | #5 |
Студент, не
Старожил
Регистрация: 29.01.2009
Сообщений: 2,067
|
Зачем?
Или вы хотите чтоб программа выпрашивала пароль до тех пор пока не отгадаешь?
I am the First of Cyber Evolution...
I am the First to Program your Future... |
12.06.2010, 13:50 | #6 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Я согласен с DomiNick. Но если очень нужно, то уберите
Код:
Код:
Код:
Всегда рад помочь!
|
12.06.2010, 13:51 | #7 |
А может и не...
Участник клуба
Регистрация: 27.03.2010
Сообщений: 1,269
|
Вот кусок кода моей реализации:
Код:
Screenshot - 12.06.jpg
Перемешивай дело с бездельем и не сойдешь с ума...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывод ошибки при условии.... | Arinka | Помощь студентам | 8 | 05.06.2010 14:54 |
Выдача ошибки при вводе 2 нулей в Edit1..Edit5 | prikolist | Общие вопросы C/C++ | 5 | 11.04.2009 22:44 |
Вывод ошибки при вводе цифры 1..5 в поле Edit | prikolist | Общие вопросы C/C++ | 2 | 16.03.2009 00:22 |
Проблемка при вводе чисел | at10 | Microsoft Office Excel | 4 | 02.12.2007 22:22 |