Form...fechar todos menos o principal.....
02/02/2006
0
Olá...gostaria de saber como faço para fechar os forms ou form aberto sem fechar o principal...tipo assim tenho um form de cadastro de candidato e desejo mudar de cliente com F10 e antes de mudar o cliente desejo fechar automaticamento o form ou forms abertos para depois mudar de cliente...espero ter sido claro...
valeu galera...abraço.
fabio cavalcanti
valeu galera...abraço.
fabio cavalcanti
Cavalcanti.fabio
Curtir tópico
+ 0
Responder
Posts
02/02/2006
Mmbarros
Bom dia Fábio
Defina a propriedade FormStyle do Form Principal como: ´fsMDIForm´
Define a proriedade FormStyle dos demais Form´s como: ´fsMDIChild´
Crie esta Procedure :
procedure TFrmPrincipal.FechaTelas;
var i:integer;
begin
if MDIChildCount>=1 then
for i:=0 to MDIChildCount-1 do
MDIChildren[i].close;
end;
Antes de chamar outras telas utilize esta função: ´FechaTelas´;
Espero que tenha ajudado!
Abração!
Defina a propriedade FormStyle do Form Principal como: ´fsMDIForm´
Define a proriedade FormStyle dos demais Form´s como: ´fsMDIChild´
Crie esta Procedure :
procedure TFrmPrincipal.FechaTelas;
var i:integer;
begin
if MDIChildCount>=1 then
for i:=0 to MDIChildCount-1 do
MDIChildren[i].close;
end;
Antes de chamar outras telas utilize esta função: ´FechaTelas´;
Espero que tenha ajudado!
Abração!
Responder
02/02/2006
Mmbarros
Esquecí de uma coisa....
Coloque no evento OnClose de cada Form : Action:=caFree;
Acho que agora ta ok!
Coloque no evento OnClose de cada Form : Action:=caFree;
Acho que agora ta ok!
Responder
Clique aqui para fazer login e interagir na Comunidade :)