Fernando, eu estou tendo exatamente esse problema, loop infinito... como vc resolveu ??? > ----- Original Message ----- > From: "fernando" <[EMAIL PROTECTED]> > To: <delphi-br@yahoogrupos.com.br> > Sent: Thursday, January 27, 2005 10:26 AM > Subject: Res: Re: [delphi-br] Problema na inicialização... > > > > ATENÇÃO, o onActivate irá disparar toda vez que o form (tela receber o foco) > se esse é o resultado desejado, deve-se prevê-lo para > evitar loop infinito. > (já tive sérias dores de cabeça com isso) > > -------Mensagem original------- > > De: delphi-br@yahoogrupos.com.br > Data: 01/27/05 11:12:41 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Problema na inicialização... > > Muda pro evento OnActivate > > ----- Original Message ----- > From: "Adenes I. Freire Junior" <[EMAIL PROTECTED]> > To: <delphi-br@yahoogrupos.com.br> > Sent: Thursday, January 27, 2005 9:58 AM > Subject: [delphi-br] Problema na inicialização... > > > > Caro amigo, > > Na abertura do sistema o form principal chama outro form, para login, na > tela aparece somente a tela de login, como faço para aparece a tela > prinicpal e a de login? > > procedure TFrmFPAG2002.FormShow(Sender: TObject); > var > Usuario : String[10]; > Senha : String[10]; > > begin > FrmSenha.ShowModal; > > //Atualizando > DTM.TblPassword.Active := true; > Usuario := Criptografia(DTM.TblPasswordUsuario.Value, '05964817', > 'descript'); > Senha := Criptografia(DTM.TblPasswordSenha.Value, '05964817', > 'descript'); > DTM.TblPassword.Active := false; > end; > > Adenes I. Freire Junior > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > <<<<< 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 > > > > > > > > > > > > > > -- > <<<<< 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] > > > > Yahoo! Grupos, um serviço oferecido por: > PUBLICIDADE > > > > > > 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 Termos do Serviço do > Yahoo!. > > > > ---------- > > No virus found in this outgoing message. > Checked by AVG Anti-Virus. > Version: 7.0.300 / Virus Database: 265.7.6 - Release Date: 27/1/2005 > > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > <<<<< 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 > > > > > > > > > -- <<<<< 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
