VPF::Пароль на закладку PageControl - Форум программистов

Hatigatsu

Дата 7.12.2006, 09:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 11.10.2006
Где: г. Н.Новгород

Репутация: нет
Всего: нет

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

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

Код


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

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

Это сообщение отредактировал(а) Hatigatsu - 7.12.2006, 09:43

Elfebet

Дата 7.12.2006, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: 2
Всего: 14

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

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

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

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

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

Hatigatsu

Дата 8.12.2006, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 11.10.2006
Где: г. Н.Новгород

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »