TBUTTON. Pasar ::Cargo a EVAL

[thefull]

Antonio, ¿ podria ser que la evaluacion de bAction, si estuviese definido la
variable Cargo , pasará esto en vez de Self ?

if ::bAction != nil
Eval( ::bAction,iif(Empty(::Cargo), Self,::Cargo ) )
endif

El motivo es que de esta manera , puedo usar en una clase propia;

METHOD View() CLASS TMY
....
cNumero := "{|Self|Self:ViewDemo("+ str(z)+ ")}"
aoBtn[z] := TButton():New( X, 90, "MEMO", oFld:aDialogs[ nFolders ],,50,10,,, .F., .T., .F.,, .F.,,, .F. )
aoBtn[Z]:bAction := &( cNumero )
aoBtn[Z]:Cargo := Self
.....

De esta manera, es posible crear botones dinamicos que puedan llamar
a un method de la propia clase, no a un method de la clase de TButton.

No se si me explico

Yo tengo modifica la clase TButton por este motivo, que viendo ahora el tema de los tooltips, pues me he puesto a recordad y lo comento por si pudiera ser una mejora, yo creo que si

[Antonio Linares]

Rafa,

Lo que comentas es útil pero no es estandard de FWH por lo que no podemos implementarlo pues podríamos romper código existente de aplicaciones de usuarios en donde se use cargo para otros fines

[Silvio]

Antonio,
can modify BUTTON class to OFFICE LIKE 2007 ?
How I can make it ?