Formularios MDI

[hmoner]

Hola..
Una pregunta..
Usando forms MDIchild, como puedo hacer pasar los datos de un formulario MDIChild a otro Mdichild? La unica forma que encontre es pasandolos al mainform (MDIForm) y desde ahi tomarlo en un MDIchild.
como se puede hacer sin hacer todos esos pasos?

Gracias

[dec]

Hola,

Yo no sé cómo estás haciéndolo exactamente; a mí se me ocurre algo así:

Código Delphi [-]
Application.MainForm.MDIChildren

¿Te parecen muchos pasos?

[walito]

Yo tengo ese mismo problema.

Con el ejemplo ese que nos pasaste tampoco funciona.

Resulta que yo tengo un mdichild (form8) el cual tiene una grilla que al hacer doble click me habre otro mdichild (form10) el cual al ser mostrado necesita leer una variable publica del form8, por ejemplo yo lo hago asi:

(Perdon, No se como se pega para que se vea en Código)

Código Delphi [-]
procedure TForm10.ObtenerDato(Sender: TObject);
begin
    showmessage(inttostr(Form8.IdPresupuesto));
end;

eso me muestra un numero asi 1324324234, aviendole asignado anteriormente un 5 por ejemplo

La unica solucion que encontre que no me parece la adecuada (seguro hay otra forma que no la se) es crear la variable en el form1 y al hacer 2 click sobre la grilla asignar el valor en form1.varible y cuando se muestre el form10 leerla desde ahi, no es problema hacer eso cuando son 1 o 2 variables, el problema se me hace cuando tengo muchas variables para usarlas asi.

Agradeceria si alguien tiene alguna ayuda.
Gracias

Walter

[lucasarts_18]

Empezado por walito

(Perdon, No se como se pega para que se vea en Código)

Al momento de responder debes buscar en el menú el objeto #, lo presionas y te aparece unos tag en el editor de respuestas, dentro de estos dice CODE, pues esto lo cambias por delphi y listo.

Hasta Luego -

[[maeyanes]]

Aunque me parece que en el foro ya se ha tratado este problema y dado solución, les dejo más o menos como hacer lo que desean.

En la forma donde van a usar la información (Form10, por ejemplo), crean una propiedad pública tal que:

Código Delphi [-]
type
  TForm10 = class(TForm)
  private
    FPropiedadNueva: Integer;
  public
    property PropiedadNueva: Integer 
      read FPropiedadNueva 
      write FPropiedadNueva;
  end;

Luego, en Form8, cuando se desea llamar a Form10, se puede hacer algo como esto:

Código Delphi [-]
procedure TForm8.DBGrid1DblClick(Sender: TObject);
begin
  if not Assigned(Form10) then  // Si la forma no está creada, la creamos.
    Form10 := TForm10.Create(Application);
  Form10.PropiedadNueva := 123 // Aquí asignan el valor que necesiten pasar a Form10.
end;

Ya con eso, dentro de Form10 ya se puede usar el valor pasado desde la otra forma.

Código Delphi [-]
procedure TForm10.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(FPropiedadNueva))
end;

Saludos...

[walito]

agradesco las respuestas muy buenas y me funcionaron muy bien desde ya gracias