|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.09.2007, 14:04 | #1 |
Заблокирован
Регистрация: 29.09.2007
Сообщений: 106
|
Защита формы паролем
Здрасвуйте товарищи опытные программисты. Я новичок в Делфи. Сейчас хочу написать программу уже над ней работаю. Меня посветила мисль защитить главную форму паролем использую вот такой код:
procedure TPasswordDlg.FormCloseQuery(Sender: TObject; var CanClose: Boolean); const pass=`велкам`; //наш праоль begin if Password.Text = pass then CanClose:=true else Application.Terminate; end; Но сдесь есть но: Я хочу если вести не правельный пароль чтобы светилось сообщение, а через этот код приложение закрывается. Помогите с кодами. Дайде пожалуйста более детальное описание. Зарание благодарен |
29.09.2007, 14:14 | #2 |
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,051
|
попробуй так ....
Код:
Последний раз редактировалось Noor; 29.09.2007 в 14:19. |
29.09.2007, 18:43 | #3 |
Заблокирован
Регистрация: 29.09.2007
Сообщений: 106
|
А как мне сделать что бы пользеватель сам создавал пароль и логин??
Зарание благодарен |
29.09.2007, 19:44 | #4 | |
Заблокирован
Регистрация: 29.09.2007
Сообщений: 106
|
Цитата:
Когда ввожу не верный пароль он светит сообщение, после нажатия на ОК он возвращается не на форму что бы занова ввести пароль, а сразу открывает главную. |
|
29.09.2007, 20:05 | #5 |
Форумчанин
Регистрация: 05.05.2007
Сообщений: 236
|
народ, а где именно находится procedure TPasswordDlg.FormCloseQuery(Sender: TObject);? в какой именно категории?
|
29.09.2007, 20:20 | #6 |
Заблокирован
Регистрация: 29.09.2007
Сообщений: 106
|
На Object Inspector, раздел Events и смотриш OnCloseQuery.
|
29.09.2007, 20:29 | #7 |
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,051
|
2kuzmich
TPasswordDlg = TForm1 (ну или какой там номер формы) Просто Name у формы Form1 переименовали в PasswordDlg а FormCloseQuery смотри в Object Inspector закладка Events (OnCloseQuery) |
29.09.2007, 20:53 | #8 | |
Участник клуба
Регистрация: 01.11.2006
Сообщений: 1,051
|
Цитата:
Код:
Последний раз редактировалось Noor; 29.09.2007 в 21:06. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема с паролем. | White_angel | Общие вопросы Delphi | 13 | 18.07.2008 09:48 |
Защита паролем | GAGARIN-NEW | Общие вопросы Delphi | 46 | 15.10.2007 13:20 |
Проблема с паролем. Помогите пожалуйста. | D.mon | Microsoft Office Excel | 1 | 02.10.2007 08:32 |
Шифровка паролем-HELLP | DKbelRoma | Безопасность, Шифрование | 3 | 13.09.2007 16:20 |
Аutorun защищен паролем | batt | Безопасность, Шифрование | 0 | 23.04.2007 05:52 |