Защита формы паролем

[Илюха]

Здрасвуйте товарищи опытные программисты. Я новичок в Делфи. Сейчас хочу написать программу уже над ней работаю. Меня посветила мисль защитить главную форму паролем использую вот такой код:
procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
const pass=`велкам`; //наш праоль
begin
if Password.Text = pass then CanClose:=true
else Application.Terminate;
end;

Но сдесь есть но:
Я хочу если вести не правельный пароль чтобы светилось сообщение, а через этот код приложение закрывается. Помогите с кодами. Дайде пожалуйста более детальное описание.

Зарание благодарен

[Noor]

попробуй так ....

procedure TPasswordDlg.FormCloseQuery(Sender: TObject; 
var CanClose: Boolean); 
const pass=`велкам`; //наш праоль 
begin 
if Password.Text = pass then CanClose:=true 
else 
//очистим поле с неправильным паролем
Password.Text = '';
// выводим сообщение
Application.MessageBox('Неверный пароль','Ошибка !!!',MB_OK or MB_ICONINFORMATION);

end;

[Илюха]

А как мне сделать что бы пользеватель сам создавал пароль и логин??

Зарание благодарен

[Илюха]

Сообщение от Noor

попробуй так ....

procedure TPasswordDlg.FormCloseQuery(Sender: TObject; 
var CanClose: Boolean); 
const pass=`велкам`; //наш праоль 
begin 
if Password.Text = pass then CanClose:=true 
else 
//очистим поле с неправильным паролем
Password.Text = '';
// выводим сообщение
Application.MessageBox('Неверный пароль','Ошибка !!!',MB_OK or MB_ICONINFORMATION);

end;

Сделал как сдесть. Но есть один глюк:
Когда ввожу не верный пароль он светит сообщение, после нажатия на ОК он возвращается не на форму что бы занова ввести пароль, а сразу открывает главную.

[kuzmich]

народ, а где именно находится procedure TPasswordDlg.FormCloseQuery(Sender: TObject);? в какой именно категории?

[Илюха]

На Object Inspector, раздел Events и смотриш OnCloseQuery.

[Noor]

2kuzmich
TPasswordDlg = TForm1 (ну или какой там номер формы)
Просто Name у формы Form1 переименовали в PasswordDlg
а FormCloseQuery смотри в Object Inspector закладка Events (OnCloseQuery)

[Noor]

Сообщение от Илюха

Сделал как сдесть. Но есть один глюк:
Когда ввожу не верный пароль он светит сообщение, после нажатия на ОК он возвращается не на форму что бы занова ввести пароль, а сразу открывает главную.

попробуй передвть фокус той форме в которой нужно вводить пароль

Application.MessageBox('Неправильный пароль','Ошибка !!!',MB_OK or MB_ICONINFORMATION);
//отлавливаем нажатие кнопки ОК
if CharsetToIdent(MB_ok,EmptyStr) then
PasswordDlg.SetFocus;