Запрет доступа к форме

Для прав доступа, хочу сделать ограничение по доступу к формам. Скрипт (кусок) такой:

procedure frmLogin_bLogin_OnClick (Sender: string; var Cancel: boolean);
var
   s: string;
begin
     // SQL-запрос для проверки пользователя и пароля
     s := VarToStr( SQLExecute('SELECT count(id) FROM userrights WHERE (login = ''' + frmLogin.edUser.Text + ''') AND (password = ''' + frmLogin.edPassword.Text + ''');') );

     // если SQL-запрос найден логин и пароль
     if (s <> '0') and (s<>'') then
     begin
          sUser := frmLogin.edUser.Text; // запомнить имя пользователя
          // ограничения для мастеров
        s := VarToStr( SQLExecute('SELECT master FROM userrights WHERE (login = ''' + sUser + ''');') );
          if s='1' then
          begin
              frmEmployeeCardPrice.Enabled := False;
               end;
       frmLogin.Close; // закрыть форму ввода пароля
     end else MessageDlg('Пароль не верен', mtError, mbOk, 0); // сообщение о неверном пароле

end;

Вопрос, можно-ли сделать вывод сообщения при попытке доступа к закрытой форме? По умолчанию выпадает "cannot make a visible window modal" можно конечно и это, но хочется чего-то на русском могучем.

Пожалуйста приложите ваш проект, с описанием, по какому критерию необходимо ограничивать доступ к форме и к какой форме?

kovalenko
К сожалению именно заменить сообщение не получиться, т.к. это ошибка, когда вы пытаетесь открыть форму, если для этой формы установлено свойство Enabled = False

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

procedure Form1_ButtonForNewRecord_OnClick (Sender: string; var Cancel: boolean);
begin
    if not Form2.Enabled then
    begin
        ShowMessage('Доступ закрыт.');
        Cancel := True;
    end;
end;

Необходимо создать событие OnClick для каждой кнопки, которая открывает форму, которая может быть заблокирована, т.о. вместо ошибки вы можете написать свое сообщение.

kovalenko
Для этого необходимо создать новую глобальную переменную, например isAdmin: boolean;
Затем в процедуре procedure frmLogin_bLogin_OnClick присваивать этой переменной результат SQL запроса, который проверит, является ли текущий пользователь администратором.

Можете приложить ваш проект, постараюсь помочь.

Добавьте глобальную переменную
   isAdmin: boolean;

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

if s='1' then isAdmin := true;

в результате должно получить так

          // проверка прав администратора
          s := VarToStr( SQLExecute('SELECT administrator FROM userrights WHERE (login = ''' + sUser + ''');') );
          if s='0' then
          begin
             frmDict.Button50.Enabled := False; // если пользователь не имеет прав администратора, отключить кнопку, чтобы создать других пользователей
             Form2.bUsers.Enabled := False;
             frmApplication.Button26.Visible := False; //невидимоть кнопки педактирование клиента в приёме в ремонт
          end;
          if s='1' then isAdmin := true;

затем можете использовать эту переменную, пример

    frmApplication.TabSheet1.TabVisible := True;
    if not isAdmin  then
    ShowMessage('Вы не можете редактировать данные клиента, указанные при приёме.');