![]() |
Problema Con formulario Hijo
Hola Foro,
tengo un formulario padre y por consiguiente un hijo el problema es que cuando llamo al hijo, no puedo seleccionar en foco de las Cajas de Texto con el click del raton, los unicos objetos que puedo seleccionar con el raton son los botones. El codigo fuente que he utilizado para llamar al formulario hijo desde el padre por medio de un menu es el siguiente: with TFrmIngreso.Create( Self ) do begin parent := Form1; Visible := True; end; end; Gracias de antemano... --Las Caidas te Hacen aprender a caminar-- |
Me parece que te está faltando al momento de crear TFrmIngreso asignarle la propiedad FormStyle := fsMDIChild;
Tambien a Form1 lo tenes que poner como FormStyle := fsMDIForm; |
Si lo que sucede es que yo lo quiero tratar como verdaderamente independiente es decir que cuando le de cerrar se cierre no se minimize dentro del padre, por eso solo al formulario padre le he puesto en FormStyle:=fsMDIForm y al Hijo lo he dejado como FormStyle:=fsNormal
para que con el codigo que detalle en el post anterior me lo haga, hasta cierto punto funciona porque me lo hace hijo y se puede cerrar el unico problema es que el evento Click de todos mis TEdit del Hijo no lo atrapa solo para los botones. |
Y no te sirve abrirlo modal ?
|
Lo Solucione!!!!!
Pues fijate que abrilo modal tiene el problema que se trunca el formulario desde donde lo abristes, pero fijate que solucione el problema..
asi: en el formulario padre FormStyle:=FsMDIForm en el Hijo FormStyle:=FsNormal el codigo en un boton(por ejemplo) para llamar desde el padre if FormStyle = fsMDIChild Then Action := caFree; end; y en el evento OnClose del hijo if FormStyle = fsMDIChild Then Action := caFree; end; asi mi formulario hijo hereda dodo del padre sin perder ninguna propiedad, y al cerrarlo no se minimiza sino que lo libera y lo cierra.. Talvez a alguien con mi problema le Sirva... --Las Caidas Te Hacen aprender a caminar-- |
Disculpad Hay un error!!
en el post Anterior hay un error con el codigo para llamar al Hijo el codigo correcto es:
with TFrmPadre.Create( Self ) do FormStyle := fsMDIChild; end; |
La franja horaria es GMT +2. Ahora son las 18:44:56. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi