[SniperKz]

Всем привет, у меня вопрос
Вот мой код для 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

Заранее спасибо

[PS11011010]

Сделать-то можно, но лучше вынеси все это дело в отдельные процедуры. Одна будет открывать все, а вторая только определенные элементы. А то так запутаться можно.

[Snake22]

конечно можно. что мешает? =)

Код:

  
const 
pass1='123';
masterpass='456';
  
begin
 if Password.Text = pass then
  begin 
       CanClose:=true;
       Form1.pgc1.Visible := True;
   end else
  if  Password.Text = masterpass then
   begin
       ЧТОТОТАМ.visible:=true;
   end
else 
   Application.Terminate;
end;

[SniperKz]

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

конечно можно. что мешает? =)

Код:

  
const 
pass1='123';
masterpass='456';
  
begin
 if Password.Text = pass then
  begin 
       CanClose:=true;
       Form1.pgc1.Visible := True;
   end else
  if  Password.Text = masterpass then
   begin
       ЧТОТОТАМ.visible:=true;
   end
else 
   Application.Terminate;
end;

Спасибо работает) делал примерно также, но не много ошибался)