Показать сообщение отдельно

  #7  
Старый 28.07.2007, 14:02
Fen-Omen
Участник форума
Регистрация: 22.03.2007
Сообщений: 220
Провел на форуме:
1068874

Репутация: 234
Отправить сообщение для Fen-Omen с помощью ICQ
По умолчанию

К чему делать пассворд диалог главной формой?

Просто в дополнению к своей программе создаешь готовую форму PasswordDlg , Появится форма с двумя кнопками "Ок" "Выход" Label и Edit. Edit будет являтся полем ввода пароля поэтому свойство PasswordChar указываешь "*", если стандартно этого не будет.

Идешь в обработчик события главной формы, и в событии OnShow указываешь:

Цитата:
PasswordDlg.ShowModal;
В этом случае главная форма останется главной, но перед ее запуском всегда будет появлятся 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..
 
Ответить с цитированием