Tela de login, fácil para quem sabe!!!!
08/12/2003
0
Norotico
Posts
08/12/2003
Marcelo Carrijo
begin
frmsenhas:=tfrmsenhas.create(self);
frmsenhas.show;
end;
[b]Obs.:[/b] Este código acima deverá estar no Formulario Principal da Aplicação ...
Talves de certo ....
Um abraço ... :)
08/12/2003
Vanelly
procedure TFormPrincipal.onFormCreate(Sender: TObject);
begin
formSenha:=TformeSenha(self);
formSenha.showModal;
formSenha.Release;
end;
Não me lembro a sintaxe das procedure mas é assim
Falow :P
08/12/2003
Eniorm
Para que o form de login apareça depois
do form principal, use o showmodal no evento
OnActivate do form principal, ex:
... procedure TformPrincipal.OnActivate(....... begin frmLogin.Create(Self); frmLogin.ShowModal; frmLogin.Release; end; ...
Assim não tem erro.
T+
20/12/2003
Rafaelunp
... procedure TformPrincipal.OnActivate(....... begin frmLogin.Create(Self); frmLogin.ShowModal; frmLogin.Release; end; ...
Eu estou o este problema (de aparecer o login) e trabalho dessa forma (no OnActivate e ShowModal), mas tenho um problema:
Sempre que exibo um relatório (ou quando o formulário principal pede o foco) a tela de login aparece novamente!!!
Não quero isso...
E agora?!
Tem alguma solução pra isso?!
20/12/2003
Ozelo
[]´s
22/12/2003
Bilatto
22/12/2003
Tnaires
Use uma variável booleana como flag. Qdo o usuário logar no sistema atribua a ela o valor true. Então, antes do código vc bota um if. Assim:
procedure TformPrincipal.OnActivate(....... begin if logado then begin frmLogin.Create(Self); frmLogin.ShowModal; frmLogin.Release; end; end;
Blza? Sucesso
Clique aqui para fazer login e interagir na Comunidade :)