Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Problema Con formulario Hijo (https://www.clubdelphi.com/foros/showthread.php?t=30561)

JELIRM 10-04-2006 16:25:14

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--

alapaco 10-04-2006 16:42:16

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;

JELIRM 10-04-2006 17:15:07

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.

alapaco 10-04-2006 17:22:09

Y no te sirve abrirlo modal ?

JELIRM 10-04-2006 17:43:53

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--

JELIRM 10-04-2006 17:45:42

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 16:43:06.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi