<br><br><div class="gmail_quote">El 15 de junio de 2010 10:18, Maxi <span dir="ltr"><<a href="mailto:maximiliano.duarte@gmail.com">maximiliano.duarte@gmail.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
El día 15 de junio de 2010 10:39, christian Ortiz <<a href="mailto:xortix@gmail.com">xortix@gmail.com</a>> escribió:<br>
<div><div></div><div class="h5">> me explico mejor:<br>
><br>
> en mi clase tengo un procedimiento Onclick que ha sido asignado al<br>
> evento click de los componentes creados, y este procedimiento al final<br>
> llama a otro procedimiento, que por defecto esta sin codigo.<br>
><br>
> Desde otra clase llamo a la 1ra, creo mis objetos pero quiero asignar<br>
> un procedimiento de la 2da clase al procedimiento de la 1ra que se<br>
> encuentra sin codigo.<br>
><br>
> Alguna idea?<br>
><br>
> miclase.Miprocedimiento := @MinuevoProcedimiento   no funciona<br>
><br>
> El 15/06/10, José Mejuto <<a href="mailto:joshyfun@gmail.com">joshyfun@gmail.com</a>> escribió:<br>
>> Hello christian,<br>
>><br>
>> Tuesday, June 15, 2010, 4:59:41 AM, you wrote:<br>
>><br>
>> cO> Hola a todos,<br>
>> cO> se que puedo asignar un procedimiento a un evento asi :<br>
>> cO> micomponent.Onclick= @MiProcedure<br>
>> cO> tengo un inconveniente ahora,<br>
>> cO> en mi clase defino un procedimiento sin codigo que se le psa el<br>
>> parametro<br>
>> cO> sender del objeto,<br>
>> cO> Como puedo reasgnar otro un procedimiento de otra clase a ese<br>
>> procedimiento?<br>
>><br>
>> Puedes poner pseudocódigo de lo que quieres hacer. Es que no acabo de<br>
>> entenderlo.<br>
>><br>
>> --<br>
>> Best regards,<br>
>>  José<br>
>><br>
>><br>
>> _______________________________________________<br>
>> Lazarus-es mailing list<br>
>> <a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
>> <a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
>><br>
><br>
><br>
> --<br>
> Christian<br>
><br>
> _______________________________________________<br>
> Lazarus-es mailing list<br>
> <a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
> <a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
><br>
<br>
<br>
</div></div>el objeto A debe conocer el metodo del objeto B, </blockquote><div><br>lo conoce <br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
el objeto a deberia<br>
recibir el objeto b para poder usar sus metodos, sino el procedimiento<br>
deberia ser publico, no dentro de las clases<br>
<br>
miprocedimiento(sender:tobject);<br>
Begin<br>
....<br>
end;<br>
<br>
ObjetoA.Onclick:= miprocedimiento;<br>
ObjetoB.Onclick:= miprocedimiento;<br></blockquote><div><br>Creo que soy duro para explicar el problema, vamos a tratar de hacero mejo ...<br><br><br>============================<br><b>Unit </b>Myclase <br><br>...<br><b>type </b>Tlaclase = class<br>
  <b>public </b><br>    <b>Procedure </b>Elprocedimiento(sender:tobject)<br>      ----<br><b>end</b><br><br>....<br><br>============================<br><br><b>Unit </b>OtraClase<br><b>uses </b>Myclase, ...<br>.....<br><b>type </b><br>
 ----------<br><b>public </b><br>   <b>procedure </b>button.click(sender:tobject);<br>   <b>procedure </b>OtroProcedure(sender:tobject);<br>.......<br><b><i>implementation</i></b><br><br>   <b>procedure </b>Totraclase.button.click(sender:tobject);<br>
var instancia: Tlaclase;<br><b>begin</b><br>    instancia:= Tlaclase.create (..)<br>    instancia.Elprocedimiento :=@OtroProcedure <i style="background-color: rgb(153, 0, 0);"><b> <span style="color: rgb(255, 204, 153);">--> Esto me genera error  </span></b></i><br>
<b>end</b><br>
   <b>procedure </b>Totraclase.OtroProcedure(sender:tobject);<br>
<b>begin</b><br>  //codigo deseado<br><b>end</b>;<br> --<br><font color="#888888"><br>===============================<br></font>
</div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><font color="#888888"></font><div class="im">Twitter: @nenunocomar<br>
Maximiliano Duarte<br>
Linux User #495070<br>
Ubuntu User #28504<br>
<br>
El que pregunta aprende, y el que contesta aprende a responder.<br>
<br>
_______________________________________________<br>
</div><div><div></div><div class="h5">Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Christian<br>