[Lazarus-es] asignar un procedimiento

Maxi maximiliano.duarte en gmail.com
Mar Jun 15 17:18:06 CEST 2010


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, 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;

-- 
Twitter: @nenunocomar
Maximiliano Duarte
Linux User #495070
Ubuntu User #28504

El que pregunta aprende, y el que contesta aprende a responder.




More information about the Lazarus-es mailing list