Também faço dessa forma, Alexandre.
 

Luis Alberto P. Lopes
Desenvolvimento de Sistemas
Belo Horizonte - Minas Gerais




----- Mensagem original ----
De: Alexandre Marinho da Silveira <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 28 de Janeiro de 2008 16:49:20
Assunto: Re: [delphi-br] Form de Login - urgente

Guilherme

Eu 
também 
faço 
diferente 
de 
vc.
Eu 
crio 
o 
DataModule 
antes 
do 
form 
principal 
e 
dentro 
do 
OnCreate 
do 
DataModule 
eu 
chamo 
a 
tela 
de 
login.
Se 
tudo 
estiver 
OK, 
daí 
sim 
ele 
inicializa 
o 
que 
precisa 
no 
DataModule, 
senão 
não 
faz 
nada.
No 
OnCreate 
do 
Form 
principal 
eu 
só 
testo 
uma 
coisa:  
Banco 
de 
dados 
está 
logado?  
Se 
sim, 
faz 
o 
resto, 
se 
não:  
Application.Terminate.
Espero 
que 
isso 
ajude.

Alexandre

----- 
Original 
Message 
-----
From: 
"Alessandro 
DUARTE 
de 
Moraes" 
<[EMAIL PROTECTED]>
To: 
<delphi-br@yahoogrupos.com.br>
Date: 
Mon, 
28 
Jan 
2008 
15:28:11 
-0200
Subject: 
Re: 
[delphi-br] 
Form 
de 
Login 
- 
urgente

> 
Se 
o 
código 
do 
teu 
projeto 
está 
igual 
ao 
que 
postasse, 
então 
estás 
primeiro 
> 
executando 
o 
FormPrincipal 
... 
o 
comentário 
que 
colocasse 
não 
tem 
sentido 
> 
...
> 
Eu 
uso 
diferente, 
crio 
um 
form 
a 
parte 
(o 
login) 
e 
chamo 
ele 
"na 
marra", 
se 
> 
o 
ModalResult 
for 
diferente 
de 
mrOK 
então 
executo 
um 
> 
Application.Terminate 
ao 
invés 
de 
Application.Run.
> 
Isso 
funciona!
> 
> 
Alessandro 
DUARTE 
de 
Moraes
> 
A.C. 
Santa 
Casa 
do 
Rio 
Grande.
> 
http://www.santacasarg.com.br

> 
>  
 
----- 
Original 
Message 
----- 
>  
 
From: 
Guilherme 
Alves 
>  
 
To: 
delphi-br@yahoogrupos.com.br 
; 
[EMAIL PROTECTED] 
>  
 
Sent: 
Monday, 
January 
28, 
2008 
2:13 
PM
>  
 
Subject: 
[delphi-br] 
Form 
de 
Login 
- 
urgente
> 
> 
>  
 
Olá 
galera
> 
>  
 
Quando 
eu 
precisava 
fazer 
um 
form 
de 
login 
antes 
do 
usuário 
poder 
> 
utilizar 
o 
sistema, 
eu 
fazia 
assim 
(no 
Delphi 
7)
>  
 
FormPrincipal 
= 
form 
tipo 
MDIform
>  
 
FormLogin 
= 
form 
tipo 
normal
>  
 
No 
momento 
de 
inicializar 
eu 
fazia 
assim:
> 
>  
 
begin
>  
 
Application.Initialize;
>  
 
Application.CreateForm(TFormPrincipal, 
FormPrincipal);
>  
 
//inicializa 
primeiro 
o 
form 
de 
login//
>  
 
Application.CreateForm(TFormLogin, 
FormLogin);
>  
 
Application.CreateForm(TDataModule, 
DataModule);
>  
 
Application.Run;
>  
 
end.
> 
>  
 
Agora, 
estou 
tentando 
fazer 
a 
mesma 
coisa 
no 
Delphi 
2007 
e 
não 
estou 
> 
conseguindo. 
O 
que 
pode 
ser?
>  
 
Lembrando 
que 
estou 
utilizando 
também 
para 
o 
formprincipal 
o 
MDIForm 
> 
(pai), 
mas 
o 
login 
como 
form 
normal, 
pois 
funcionava 
corretamente 
no 
> 
Delphi 
7.... 
não 
sei 
porque 
no 
Delhpi 
2007 
não 
funciona. 
Simplesmente 
ele 
> 
não 
abre, 
abre 
direto 
o 
FormPrincipal.
> 
>  
 
No 
aguardo, 
Valeu, 
Guilherme 
Alves
> 
> 
>  
 
---------------------------------
>  
 
Abra 
sua 
conta 
no 
Yahoo! 
Mail, 
o 
único 
sem 
limite 
de 
espaço 
para 
> 
armazenamento! 
> 
>  
 
[As 
partes 
desta 
mensagem 
que 
não 
continham 
texto 
foram 
removidas]
> 
> 
> 
>  
  
>  
 
-------------------------- 
>  
 
E-mail 
Seguro 
Vetorial.net 
> 
>  
 
Mensagem 
classificada 
como 
NÃO-SPAM. 
Para 
classificar 
como 
SPAM, 
>  
 
encaminhe 
para 
[EMAIL PROTECTED] 
> 
>  
 
Chave 
de 
Identificação: 
54568,479e0512415984065212688 
> 
> 
> 
[As 
partes 
desta 
mensagem 
que 
não 
continham 
texto 
foram 
removidas]
> 
> 
> 

-- 
<<<<< 
FAVOR 
REMOVER 
ESTA 
PARTE 
AO 
RESPONDER 
ESTA 
MENSAGEM 
>>>>>

as 
mensagens 
antigas, 
acesse:
  
  
http://br.groups.yahoo.com/group/delphi-br/messages

com 
o 
moderador, 
envie 
um 
e-mail 
para:
  
  
[EMAIL PROTECTED]
 
Links 
do 
Yahoo! 
Grupos

o 
site 
do 
seu 
grupo 
na 
web, 
acesse:
  
  
http://br.groups.yahoo.com/group/delphi-br/

deste 
grupo, 
envie 
um 
e-mail 
para:
  
  
[EMAIL PROTECTED]

uso 
que 
você 
faz 
do 
Yahoo! 
Grupos 
está 
sujeito 
aos:
  
  
http://br.yahoo.com/info/utos.html

 






      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

Responder a