
28.07.2007, 14:02
|
|
Участник форума
Регистрация: 22.03.2007
Сообщений: 220
Провел на форуме: 1068874
Репутация:
234
|
|
К чему делать пассворд диалог главной формой?
Просто в дополнению к своей программе создаешь готовую форму PasswordDlg , Появится форма с двумя кнопками "Ок" "Выход" Label и Edit. Edit будет являтся полем ввода пароля поэтому свойство PasswordChar указываешь "*", если стандартно этого не будет.
Идешь в обработчик события главной формы, и в событии OnShow указываешь:
В этом случае главная форма останется главной, но перед ее запуском всегда будет появлятся PasswordDlg.
Для самой примитивной защиты пароль лучше хранить ввиде const. В обработчике события формы запроса пароля ищешь свойство OnCloseQuery и там вводим примерно такой код:
procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
const p=`123456`; //Указываем наш пароль
begin
if Password.Text = p then CanClose:=true
else Application.Terminate;
end;//Если пароль совпадает с константой p - появится главная форма, если нет - приложение закончит работу
Последний раз редактировалось Fen-Omen; 28.07.2007 в 14:18..
|
|
|