Código en Delphi 6, válido para Delphi for win32 y CodeGear RAD Studio (Delphi win32) | ||
Componente que lanza un evento cuando se producen modificaciones en el texto o cambia el foco de una lista de controles.
Este componente nos va a servir principalmente para calcular campos que dependan de otros campos, por ejemplo, imaginemos que tenemos tres controles Edit1, Edit2 y Edit3 además de otros. Supongamos que Edit3 depende de lo que contengan Edit1 y Edit2, con este control, bastará escribir código para un evento, y cuando se modifique cualquiera de los contenidos de los controles implicados, se realizará la operación programada en dicho código.
Propiedades :
Controls : Conjunto de controles de cuyas modificaciones nos tiene que informar.(TCollection)
Control : Cada uno de los controles.(TCollectionItem)
Métodos :
GetResultAVG: Devuelve la media aritmética de la propiedad Text de los controles. (Double)
GetResultMUL : Devuelve la multiplicación de la propiedad Text de los controles. (Double)
GetResultSUM : Devuelve la suma de la propiedad Text de los controles. (Double)
GetSUMPercent : Devuelve el tanto porciento (%) que le pasemos de la suma de la propiedad Text de los controles. (Double)
GetPercentAdded : Devuelve el resultado de GetResultSUM* (1+GetSUMPercent). (Double)
GetSeparated : Devuelve la concatenación de la propiedad Text de los controles separados por el caracter que le pasemos como parámetro. (String)
Eventos :
OnCalcEvent : Se produce cuanto alguno de los controles (Controls) recibe o pierde el foco o cuando cambia el texto del control.
Nota: En los métodos GetResult??? sólo intervienen aquellos controles que tengan propiedad Text. Aquellos controles que en la propiedad Text no sea numérico, se supondrá que es 0, excepto en GetResultMUL, en cuyo caso no serán tenidos en cuenta. |
Descargar ejemplo.