Formulário de login não fecha

[FabioRubim 0]

Ola pessoal...

Eu tenho um formulário de login que faz consulta ao usuário e senha no bd....to usando esse código no Source

......var  Hand:THandle;{$R *.res}begin  Hand:=FindWindow('TApplication','Mamma Mia');  if Hand = 0 then	begin	  Application.Initialize;	  Application.Title := 'Mamma Mia';	  Application.CreateForm(TDM_Conexao, DM_Conexao);	  Application.CreateForm(TDM_Cadastros, DM_Cadastros);	  Application.CreateForm(Tfrm_Login, frm_Login);	  Application.Run;	  frm_Login.Free;	end	else	  begin		Application.MessageBox('Aplicação já aberta!','ATENÇÃO',MB_OK);		ShowWindow(Hand,SW_NORMAL);	  end;end.

Como pode ser visto, é criado o form do login e no form do logim caso o usuário seja aceito, o form login é fechado e depos retirado de memória, só que minha janela principal fica estranha....ela não fica maximizada totalmente e quando minimizo ela não minimiza mesmo, ela fica como se fosse um form child quando você fecha ele e no onclose não é colocado Action:=caFree;

 

o que pode ser?

 

Obrigado!

[thalesoli 0]

Ola pessoal...Eu tenho um formulário de login que faz consulta ao usuário e senha no bd....to usando esse código no Source

...... var   Hand:THandle; {$R *.res}  begin   Hand:=FindWindow('TApplication','Mamma Mia');   if Hand = 0 then	 begin	   Application.Initialize;	   Application.Title := 'Mamma Mia';	   Application.CreateForm(TDM_Conexao, DM_Conexao);	   Application.CreateForm(TDM_Cadastros, DM_Cadastros);	   Application.CreateForm(Tfrm_Login, frm_Login);	   Application.Run;	   frm_Login.Free;	 end	 else	   begin		 Application.MessageBox('Aplicação já aberta!','ATENÇÃO',MB_OK);		 ShowWindow(Hand,SW_NORMAL);	   end; end.

Como pode ser visto, é criado o form do login e no form do logim caso o usuário seja aceito, o form login é fechado e depos retirado de memória, só que minha janela principal fica estranha....ela não fica maximizada totalmente e quando minimizo ela não minimiza mesmo, ela fica como se fosse um form child quando você fecha ele e no onclose não é colocado Action:=caFree;o que pode ser?Obrigado!

Boa tarde eu aconselho a você mudar um pouco a maneira na qual é criado o login

...... var   Hand:THandle; {$R *.res}  begin   Hand:=FindWindow('TApplication','Mamma Mia');   if Hand = 0 then	 begin	   Application.Initialize;	   Application.Title := 'Mamma Mia';		  frm_Login := Tfrm_Login.Create(Application);	  if frm_Login.ShowModal = mrOK then 		begin		  Application.CreateForm(TDM_Conexao, DM_Conexao);		   Application.CreateForm(TDM_Cadastros, DM_Cadastros);		  Application.CreateForm(Tfrm_Login, frm_Login);		   Application.Run;	   end;	  frm_Login.Free;	 end	 else	   begin		 Application.MessageBox('Aplicação já aberta!','ATENÇÃO',MB_OK);		 ShowWindow(Hand,SW_NORMAL);	   end; end.

pois assim você irá entrar no sistema somente quando o showmodal do form de login for igual a mrOKespero ter ajudadofalowhttp://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[FabioRubim 0]

Obrigado thalesoli...nem tinha reparado que tinha um tópico do Renanbg sobre isso...desculpa ai...é a correria....esse jeito que você falow eu tenho em um outro software aqui de exemplo, pensei em fazer de outro jeit.....mas não to conseguindo,,,vai ser assim mesmo..rsrs...obrigado! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif