Ver Mensaje Individual
  #6  
Antiguo 09-02-2004
Gabriel Gabriel is offline
Miembro
 
Registrado: may 2003
Ubicación: PalauTordera
Posts: 115
Reputación: 21
Gabriel Va por buen camino
Exactamente

if not Assigned(FClients) then // El form no esta creado
Begin
// Asi lo crearia // FClients := TFClients.Create(Application);
// O hago lo que quiero
// Si quiero lo enseño // FClients.Show;
end
else
Begin
// Como esta creado si quiero lo enseño // FClients.Show;
// O hago lo que quiera
end;

Es mas directo ja que controla si la variable FClients que apunta al formulario no esta a nil

Lo unico que tienes que hacer cada vez que cierres el formulario y quieras
liberarlo poner la variable FClients a nil
// En Formulario Clientes

procedure TFClients.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FClients.Free;
FClients := nil;
end;
__________________
Gabriel
Responder Con Cita