[Lazarus-es] forms, cargar datos del form padre desconociendo nombre

[Carlos Enrique Rodriguez]

Hola,
             Yo arrancaría usando propertys.
Quedaria algo asi:

Formpadre:

  Procedure crearHijo
 Var
   Fhijo: TformHijo;
Begin
    Fhijo:= TformHijo.create(self);
    Try
        Fhijo.dato1:= eldato1;
        Fhijo.dato2:= elotrodato;
        If fhijo.showmodal = mrok then
         Begin
             /// aca vuelven los datos
               Eldato1:= fhijo.dato1;
               Elotrodato:= fhijo.dato2;
         End;
     Finally
         Fhijo.free;
     End;
End;



En el form hijo:

Declarasel form....
En la parte private
 _dato1: string;
_dato2: integer;

en la parte public:

Property dato1: string read _dato1 write _dato1
Property dato2: integer read _dato2 write _dato2

Implementation
  Aca  ya trabajas como quieras con _dato1 y _dato2
Acordate antes de salir de actualizar las variables con elvalor de los controles.

Cualquier cosa, decime que estoy sinn la computadora ahora, por eso lo resumido ydesprolijo de la respuesta.

Saludos
Carlos


Paola Bruccoleri <pbruccoleri en adinet.com.uy> escribió:

>Hola Carlos..
>
>El 01/12/2012 08:17 p.m., Carlos Enrique Rodriguez escribió:
>> Hola,
>> Se me ocurren varias formas. Vos decime cual te gusta más y si queres
>
>> la desarrollamos.
>>
>> - Podes declarar los datos como propertys y mandarlos antes del show 
>> del hijo
>si, esto lo pensé pero lo veo muy poco práctico ya que son muchos 
>datos... por ejemplo he usado las property para pasar por ej el nro de 
>cliente o cosas así
>> - Podes redefinir el constructor de tu form hijo
>cómo sería?
>> - Antes del show podes pasar una variable (no se si merece ser una 
>> property) de tipo Tform con el self del padre y usarla para acceder a
>
>> los valores del padre
>>
>puede ser..
>
>no se.. me gustaría saber cómo lo hacen Uds y cuál es la forma más
>prolija
>
>muchas gracias!
>
>
>
>------------------------------------------------------------------------
>
>_______________________________________________
>Lazarus-es mailing list
>Lazarus-es en lists.lazarus.freepascal.org
>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20121201/51b8ca8d/attachment-0002.html>