Ver Mensaje Individual
  #23  
Antiguo 24-08-2006
kesu kesu is offline
Registrado
 
Registrado: ago 2006
Posts: 3
Reputación: 0
kesu Va por buen camino
Un saludo a todos los foreros, quiza sea un poco tarde para este mensaje, pero espero que le sirva a alguno.

codigo para mostrar form hijas: ( procedimiento)

Código Delphi [-]
procedure mostrarHija(aHija: TFormClass);
var
auxForm: TForm;

begin
auxForm:= Application.FindComponent(Copy(aHija.ClassName,2,255)) as TForm;
if Assigned(auxForm) then
auxForm.Show
else
auxForm.Create(Application);

end;



luego ... si se decea destruir una ventana(form) hija al cerrarla y no solo
minimizarla, solo adicionamos una linea de codigo en el evento OnClose de
esta:

Código Delphi [-]
Action:= caFree;




de antemano pido disculpas si existe algun error en el codigo, lo escribo de
memoria, pero los que tienen el libro de Ian Marteens pueden consultarlo, pues fue en la "Cara Oculta" donde lo lei hace algun tiempo atras.
Responder Con Cita