Osmar, Agradeço pela sua resposta, mas ainda continuo sem obter sucesso. Quando efetuo o ShowModal é gerada uma exceção que encerra a minha aplicação.
Estou utilizando da seguinte forma: Quem faz a verificação da permissão de acesso é a Classe Usuário que informa à janela de login se ele possui ou não direitos de acesso. Explico: Quando o usuário clica no botão de OK (após preencher os campos de usuário e senha), eu chamo um método na classe "Usuario" que acessa as regras de negócio no datamodule "Usuario" e verifica no banco de dados se esse usuário possui permissão de acesso. O retorno dessa função é um booleano e faz com que a janela de login tome a decisão de abrir ou não a janela principal de acordo com o valor retornado. Como vê, tudo isso está dentro dos métodos criados no formulário de login e não são acessados através da Unit do Programa. Mais alguma dica? Obrigado! Sds, Romario Osmar de Souza Júnior escreveu: > > > eu costumo fazer assim: > > begin > Application.Initialize; > > Application.CreateForm(Tdm, dm); > > fmDlg_Acesso := TfmDlg_Acesso.Create(Nil); > fmDlg_Acesso.ShowModal; > > if Acessar_Sistema then > begin > Application.CreateForm(TfmPrincipal, fmPrincipal); > end; > > Application.Run; > end. > > > Obs.: dm é o meu Data Module, e a variavel acessar sistema fica nesse > data module. ela começa com false, e na janela de login, se o login > for correto, passa essa variavel para true, dai ele cria o form > principal. se cancelar o login, naum cria nada. -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
