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.
--- Em delphi-br@yahoogrupos.com.br, "Romario (Listas)"
<[EMAIL PROTECTED]> escreveu
> Senhores(as),
>
> Alguém já desenvolveu uma aplicação (MDI) que tenha uma janela de login
> no início e que após a verificação de acesso, abra a janela Main?
>
> Estou tentando fazer isso e não estou conseguindo. Como é público e
> notório que o problema está entre a cadeira e o teclado, recorro
àqueles
> que já desenvolveram tal procedimento para que me dêem uma mão.
>
> Tentei colocar somente o formulário de login para ser criado junto
com a
> aplicação, mas como não consegui abrir o formulário Main depois,
mudei e
> coloquei as duas telas para abrir junto com a aplicação. Entretanto,
não
> estou conseguindo fazer funcionar. Só aparece uma das duas (a que eu
> coloco primeiro).
>
> Agradeço qualquer dica ou exemplo que possam fornecer.
>
> Sds,
>
> Romario
--
<<<<< 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