FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Evento MDIform despues de cerrar un formulario MDChild
Hola a todos: El problema que tengo es el siguiente, tengo un formulario MDI y quiero obtener un valor que venga de un formulario MDIChild y lo ponga dentro de una variable del formulario MDI, el problema esta en que no puedo referenciar la unidad principal dentro del MDIChild porque marca error de redundancia, y se me ocurrio utilizar algun evento del formulario MDI hacer la asignacion pero lo mas cercano a lo que necesito es el OnPaint pero solo se activa cuando minimizo la pantalla lo cual resulta poco practico. Hay alguna manera de regresar valores de una MDIChild a una MDI? hay algun procedimiento que nos indique que se ha cerrado la forma MDIchild dentro del MDI para hacer la asignacion? algo asi como OncloseChild? Ojala me hayan entendido y puedan ayudarme. De antemano Gracias
__________________
Saludos Alonso |
#2
|
|||
|
|||
Hola ing_alsaac
Bueno, lo que yo hago cuando necesito hacer cosas por el estilo es, crearme una unit donde pongo un procedimiento o funcion segun necesite, declaro una variable global y hago referencia a esa variable desde el MDI y MDIChild mediante ese procedimiento o funcion. Si por ejemplo, lo que necesitas es cambiar la propiedad o el estado de un componente del MDIForm (como por ejemplo la barra de estado), siempre puedes pasar por parametro el objeto al procedimiento o funcion anterior, o bien directamente al formulario MDIChild y modificar sus propiedades (que se veran reflejadas en el MDIForm) desde donde tu desees Espero te sirva |
#3
|
||||
|
||||
Cita:
// Saludos |
#4
|
||||
|
||||
que traduciendo lo que dice roman resulta.....
Código:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation Uses child; {$R *.dfm} end. al cerrar la ventana hija.... Código:
procedure TForm2.ChildClose(Sender: TObject; var Action: TCloseAction); begin frmmdi.mivariable:= mi valor; action := cafree; end; |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|