[Lazarus-es] asignar un procedimiento

[christian Ortiz]

El 15 de junio de 2010 10:18, Maxi <maximiliano.duarte en gmail.com> escribió:

> El día 15 de junio de 2010 10:39, christian Ortiz <xortix en gmail.com>
> escribió:
> > me explico mejor:
> >
> > en mi clase tengo un procedimiento Onclick que ha sido asignado al
> > evento click de los componentes creados, y este procedimiento al final
> > llama a otro procedimiento, que por defecto esta sin codigo.
> >
> > Desde otra clase llamo a la 1ra, creo mis objetos pero quiero asignar
> > un procedimiento de la 2da clase al procedimiento de la 1ra que se
> > encuentra sin codigo.
> >
> > Alguna idea?
> >
> > miclase.Miprocedimiento := @MinuevoProcedimiento   no funciona
> >
> > El 15/06/10, José Mejuto <joshyfun en gmail.com> escribió:
> >> Hello christian,
> >>
> >> Tuesday, June 15, 2010, 4:59:41 AM, you wrote:
> >>
> >> cO> Hola a todos,
> >> cO> se que puedo asignar un procedimiento a un evento asi :
> >> cO> micomponent.Onclick= @MiProcedure
> >> cO> tengo un inconveniente ahora,
> >> cO> en mi clase defino un procedimiento sin codigo que se le psa el
> >> parametro
> >> cO> sender del objeto,
> >> cO> Como puedo reasgnar otro un procedimiento de otra clase a ese
> >> procedimiento?
> >>
> >> Puedes poner pseudocódigo de lo que quieres hacer. Es que no acabo de
> >> entenderlo.
> >>
> >> --
> >> Best regards,
> >>  José
> >>
> >>
> >> _______________________________________________
> >> Lazarus-es mailing list
> >> Lazarus-es en lists.lazarus.freepascal.org
> >> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
> >>
> >
> >
> > --
> > Christian
> >
> > _______________________________________________
> > Lazarus-es mailing list
> > Lazarus-es en lists.lazarus.freepascal.org
> > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
> >
>
>
> el objeto A debe conocer el metodo del objeto B,


lo conoce

> el objeto a deberia
> recibir el objeto b para poder usar sus metodos, sino el procedimiento
> deberia ser publico, no dentro de las clases
>
> miprocedimiento(sender:tobject);
> Begin
> ....
> end;
>
> ObjetoA.Onclick:= miprocedimiento;
> ObjetoB.Onclick:= miprocedimiento;
>

Creo que soy duro para explicar el problema, vamos a tratar de hacero mejo
...


============================
*Unit *Myclase

...
*type *Tlaclase = class
  *public *
    *Procedure *Elprocedimiento(sender:tobject)
      ----
*end*

....

============================

*Unit *OtraClase
*uses *Myclase, ...
.....
*type *
 ----------
*public *
   *procedure *button.click(sender:tobject);
   *procedure *OtroProcedure(sender:tobject);
.......
*implementation*

   *procedure *Totraclase.button.click(sender:tobject);
var instancia: Tlaclase;
*begin*
    instancia:= Tlaclase.create (..)
    instancia.Elprocedimiento :=@OtroProcedure * --> Esto me genera error  *
*end*
   *procedure *Totraclase.OtroProcedure(sender:tobject);
*begin*
  //codigo deseado
*end*;
 --

===============================

> Twitter: @nenunocomar
> Maximiliano Duarte
> Linux User #495070
> Ubuntu User #28504
>
> El que pregunta aprende, y el que contesta aprende a responder.
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>



-- 
Christian
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20100615/651eb2b0/attachment-0002.html>