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
<*> 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
