Array
(
)

Form...fechar todos menos o principal.....

Cavalcanti.fabio
   - 02 fev 2006

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


Mmbarros
   - 02 fev 2006

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!


Mmbarros
   - 02 fev 2006

Esquecí de uma coisa....

Coloque no evento OnClose de cada Form : Action:=caFree;

Acho que agora ta ok!