Тема: Password Dialog
Показать сообщение отдельно
  #1  
Старый 23.05.2012, 19:31
SniperKz SniperKz вне форума
Прохожий
 
Регистрация: 23.05.2012
Сообщения: 3
Репутация: 10
По умолчанию Password Dialog

Всем привет, у меня вопрос
Вот мой код для Password Dialog

Код:
procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
   const pass='123';
begin
 if Password.Text = pass then
 begin CanClose:=true;
    Form1.pgc1.Visible := True;
    end
else Application.Terminate;
end;
Bargest: выделяем код тегами!
Можно ли в пассворд диалоге сделать еще 1 пароль? Например я хочу сделать еще 1 пароль но с ограниченными правами, при которых видимость некоторых компонентов будет false

Заранее спасибо
Ответить с цитированием