Пароль на форму Password Dialog

[reihtmonbern]

Здравствуйте всем подскажите плиз делаю всё как в этой статье http://www.winsov.ru/delphi008.php делаю автоматически в делфи форму Password Dialog в обработчике событий главной формы Form 1 в OnShou пишу запись PasswordDlg.showmodal; но тут же выдает ошибку 'PasswordDlg.showmodal;' is not a valid identifier. что я делаю не правельно подскажите , либо может подскажите другую альтернативу как форму паролем защитить ?

[asmodey1]

У вас клавиши знаков препинания отказали на клавиатуре ?
Невозможно читать такую кашу...

[Lafeza]

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

либо может подскажите другую альтернативу как форму паролем защитить ?

///прописать в .onshow следующее
var
Password: string;
begin
if InputQuery('Password', 'Введите пароль:', PassWord) then
begin if Password = 'пароль' then
begin
if
MessageDlg('пароль правильный! Продолжить загрузку?',mtinformation, [mbyes,mbno], 0)= mryes
then begin
form1.Visible:=true end else begin
form1.close ;end ;end
else begin MessageDlg('ошибка пароля!',mtError, [mbok], 0);
form1.close;end;end
else begin
MessageDlg('Программа будет закрыта!',mtError, [mbok], 0);
form1.close;
end;

[Sparky]

а главная форма знает о существовании формы с запросом пароля? Вроде alt+f11 и в появившемся окне выбирете форму с вводом пароля

[Lafeza]

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

Здравствуйте всем подскажите плиз делаю всё как в этой статье http://www.winsov.ru/delphi008.php делаю автоматически в делфи форму Password Dialog в обработчике событий главной формы Form 1 в OnShou пишу запись PasswordDlg.showmodal; но тут же выдает ошибку 'PasswordDlg.showmodal;' is not a valid identifier.

...что то не там прописал либо не доработал, по данной статье попыталась проделать то же самое, все работает. Пересмотри что у тебя на какой форме прописано.Итак на форме PasswordDlg должно быть:
public
function xortext(text:string):string;
...........................
function TPasswordDlg.xortext(text:string):s tring;
.............
procedure TPasswordDlg.FormCloseQuery
..............
на основной форме:
uses unit2
procedure TForm1.FormShow(Sender: TObject);
..................
уже при этом запускается, а дальше корректируй в силу своего воображения

[reihtmonbern]

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

///прописать в .onshow следующее
var
Password: string;
begin
if InputQuery('Password', 'Введите пароль:', PassWord) then
begin if Password = 'пароль' then
begin
if
MessageDlg('пароль правильный! Продолжить загрузку?',mtinformation, [mbyes,mbno], 0)= mryes
then begin
form1.Visible:=true end else begin
form1.close ;end ;end
else begin MessageDlg('ошибка пароля!',mtError, [mbok], 0);
form1.close;end;end
else begin
MessageDlg('Программа будет закрыта!',mtError, [mbok], 0);
form1.close;
end;

а что нужно сделать что бы после этого кода форма с паролем исчезала а форма № 2 основная появлялась а то я не соображу код классный слов нет но тока после работы выдает ошибку подскажите пожалуйста

[Lafeza]

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

а что нужно сделать что бы после этого кода форма с паролем исчезала а форма № 2 основная появлялась

ты где прописываешь onshow?нужно на главной форме-> Form1>events>onshow.

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

..после работы выдает ошибку

...и что в ошибке пишет?код работает без ошибок(delphi6).
кстати,можешь проверить создав новый проект.

[reihtmonbern]

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

ты где прописываешь onshow?нужно на главной форме-> Form1>events>onshow.

...и что в ошибке пишет?код работает без ошибок(delphi6).
кстати,можешь проверить создав новый проект.

я прописывал в юните главной формы : Form1>events>onshow. как понимать это! я нахожу только один он шоу это в объект инспекторе евантс .

[reihtmonbern]

всё разобрался кажись....