Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Пароль на закладку PageControl

Автор: Hatigatsu 7.12.2006, 09:42

Здравствуйте. Поделитесь опытом как, грамотно, можно на закладку PageControl (мне надо только на вторую) поставить пароль с помощью ещё одной формы, а если есть другой вариант буду рад принять. Если несложно то приведите код программы.
Пытался сделать с помощью ещё одной формы пароль. Ошибка с фокусом каким-то при закрытии вызываемой формы, где я должен ввести пароль:
_ _ _ classElnvalidOperation with message
'Cannot focus a disabled or invisible windows'

Вот пример вызова второй формы, где должен вводиться пароль:

Код


procedure TForm1.TabSheet2Show(Sender: TObject);
begin
 FormPassword.Show;
end;

Повторюсь - после её закрытии вылазиет ошибка.
Прошу помощи.
smile

Автор: Elfebet 7.12.2006, 10:04

что там такого сложного? ты эту тему уже второй раз создаеш. вот тебе пример

Код


procedure TForm1.pgc1Change(Sender: TObject);
var pass:string;
begin
if (pgc1.ActivePage=ts2) then begin
    if InputQuery('Ввод пароля', 'Введите пароль', pass) then begin
      if pass<>'123' then begin
        ShowMessage('Пароль неверный!');
        pgc1.ActivePage:=ts1;
      end;
    end else
      pgc1.ActivePage:=ts1;
end;
end;

Автор: Sunvas 7.12.2006, 12:33

Elfebet, у тебя в коде в случае неверного пароля всегда становиться активной вкладка 1. Я исправил этот недостаток:

Код


var
  ts:Ttabsheet;

implementation

{$R *.dfm}

procedure TForm1.pgc1Change(Sender: TObject);
var pass:string;
begin
if (pgc1.ActivePage=ts2) then begin
    if InputQuery('Ввод пароля', 'Введите пароль', pass) then begin
      if pass<>'123' then begin
        ShowMessage('Пароль неверный!');
        pgc1.ActivePage:=ts;
      end;
    end else
      pgc1.ActivePage:=ts;
end;
end;

procedure TForm1.pgc1Changing(Sender: TObject; var AllowChange: Boolean);
begin
ts:=pgc1.ActivePage;
end;

Автор: x77 7.12.2006, 12:34

мне кажется, что пароль именно на закладку - это как-то не совсем корректно. лучше пароль запрашивать при запуске программы. а дальше смотреть, какому пользователю что именно доступно, и если пользовать, например, не обладает правом просматривать данную вкладку в TPageControl, её ещё при старте программы надо просто сделать невидимой.

тут, в общем-то, речь не столько о пароле, сколько о т.н. "карте прав" - какому пользователю какие действия доступны. такие вещи лучше централизовывать изначально. иначе у вас со временем будет 100 вкладок, к примеру, или там пунктов меню, или ещё чего, и каждый раз для доступа к ним пользователь будет вводить пароли.... а зачем? пусть он вводит пароль только один раз, и всё, что его не касается - просто не видит.

на правах имхо ;)

Автор: Hatigatsu 8.12.2006, 12:22

Elfebet, Sunvas, x77, СпасиБо за совет и пример, больше беспокоить не буду.