Controle De Acesso

[Guest vbraun]

Pessoal

Estou implementanto um sistema de cadastro com acesso por vários usuários. No cadastro de usuários são atribuídas permissões, por exemplo, usuário pode ou não acessar determidada área do programa (um Form).

O problema consiste no seguinte: dentro do evento onShow do form checo se o usuário tem ou não permissão para acessá-lo, se não tiver o mesmo não deve ser mostrado, ocorre que o comando formxxx.close não funciona dentro do onShow assim não consigo fecha-lo ... e o form é aberto normalmente...

pergunto então como fechar um form antes que ele seja exibido ?

obrigado

[Arlon]

Seria melhor se você desabilitasse o botão ou comando de menu que chama esse formulário, tipo assim:

ProcedureTFormXXXShow...

if DataModule.QueryCampo = 'usuário' then

BtnFormCadstro.Enabled := false;

end;

end.

é só uma idéia, mas faça o seguinte: tem um tópico fixo de links (he, he, foi eu que postei) aqui na seção de delphi e ele tem exatamente o que você quer, dê uma olhadinha e posta aí depois caso continue com alguma dúvida.