Tela de Login

Delphi

11/03/2005

Olá,

Estou criando a tela de login do meu sistema, ela esta definida na sua propriedade FormStyle:=fsNormal, assim que ele confirma usuario e senha, ele fecha e abre o form principal, com a propriedade FormStyle = fsMDIForm, até ai tudo blz. O erro acontece quando tento abrir alguma tela com FormStyle = fsMDIChild, que diz q a tela não pode ser aberta por não existir MDiForms ativo.

Agradeço pela atenção.

Junior


Araujojunior

Araujojunior

Curtidas 0

Respostas

Silviogs

Silviogs

11/03/2005

Olá,



Application.CreateForm(TFLogon, FLogon);
FLogon.DSOperadorAcesso.DataSet := DM.QryOperador;
FLogOn.i := 1;
repeat
FLogon.ShowModal
until not FLogon.Ok;
if (Flogon.i = 4 ) or FLogon.Ok then
Application.Terminate;
FLogon.Free;

vc deve liberar o form FLogon;

no Menu Project-Option- Main Form coloque o seu form principal.

Aenciosamente


Silvio Guedes


GOSTEI 0
POSTAR