Form De Login?

[Eder]

Olá...Pessoal...

Eu fiz um form de login e senha......mas só consigo pôr ele pra rodar se ele for como formPrincipal....ai ele vem primeiro, digito usuario e senha e beleza...ai ele entra no form que era pra ser o principal propriamente dito....só que não fica legal....então eu gostaria de deixar o principal como principal mesmo....mas que ao carregar... o programa chamasse o formLogin para ser digitado Usuario e senha...caso estive ok usuairo e senha então ele liberaria o FORMPRINCIPAL...caso contrário o problema finalizaria...

Como fazer isto funcionar???? alguém poderia me ajudar???

Grato

[fraudinha]

no evento onShow do form principal digite:

(classe do form)Tformlogin:= formlogin.create(self);

formlogin.showmodal;

formlogin.release;

[Eder]

colega......deu um errinho......veja abaixo:

[Error] principal.pas(661): Undeclared identifier: 'classe'

[Eder]

explicando melhor...eu coloquei assim:

(classe do form)Tform22:= form22.create(self);

form22.showmodal;

form22.release;

ai deu o erro conforme citei acima.

Será que fiz algo de errado??

[Kikonanet]

Olá,

Tenta assim:

Formlogin:= TForm.Create(self);
Formlogin.ShowModal;
Formlogin.Release; 

Abs.

Kiko

[Guest Guest]

Aproveitando o assunto no meu form de login se eu der um ALT-F4 ele fecha e libera o form principal como faço para q isso não aconteça me disseram q tenho q usar o evento OnCloseQuery como faço isso????????

[Eder]

Kiko...fiz o que me mandou:

procedure TForm1.FormShow(Sender: TObject);
begin
Form22:= TForm.Create(self);
Form22.ShowModal;
Form22.Release;
end;

mas da este erro:

[Error] principal.pas(661): Incompatible types: 'TForm22' and 'TForm'

[Kikonanet]

[Error] principal.pas(661): Incompatible types: 'TForm22' and 'TForm'

Tá dizendo q são incompativeis.

O q é o TForm22?? É uma classe sua?

Abs.

Kiko

[Kikonanet]

Aproveitando o assunto no meu form de login se eu der um ALT-F4 ele fecha e libera o form principal como faço para q isso não aconteça me disseram q tenho q usar o evento OnCloseQuery como faço isso????????

Tente isso:

procedure TForm1.FormCreate(Sender: TObject);
begin
 RegisterHotKey(Handle, 1, MOD_ALT, VK_F4);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnregisterHotKey(Handle, 1);
end;

Abs.

Kiko

[Eder]

Perdão Kiko.....eu coloquei incorretamente......ai não deu mais o erro seria assim:

procedure TForm1.FormShow(Sender: TObject);
begin
Form22:= TForm22.Create(self);
Form22.ShowModal;
Form22.Release;
end;

Mas agora Kiko...da outro erro:

Erro: Não é possivel marcar uma janela visivel como Modal

[Kikonanet]

Olá Éder,

Tenta usar só Show;

Abs.

Kiko

[Eder]

Kiko....Consegui com a ajuda de um amigo..ficou assim:

Entre em project e options e selecione o form de login e coloque como available

Agora

no evento do oncreate do form principal você coloca o seguinte:

Login:=tLogin.create(self); //aqui você cria o form manualmente... Login.Show;                               // chama ele na tela

agora no form de login você coloca o teu código, mas antes coloque do SHOW

 login.release;

Agora va em <Projects><View Source> e coloque

Application.ShowMainForm:= FALSE;   

olhe o exemplo como fica abaixo:

 Application.Initialize; 
      Splash:= tsplash.create(application); 
      Splash.show;                            
      Splash.refresh;                            
      Sleep(800);                              
      Application.ShowMainForm:= FALSE;  

funcionou legal....

Valeu...galera..Grato a todos...

[Kikonanet]

Ok.

Tópico Fechado

Abs.

Kiko