FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#12
|
||||
|
||||
Por supuesto que no tiene utilidad ni sentido... es un caso didáctico. Pongamos por ejemplo el caso que indica roman, pero con algo más cercano a nosotros, la propiedad Tag que tienen todos los controles, imaginamos un Checkbox, que al marcarlo, queremos poner un texto en un Edit, podríamos hacer algo así:
En el Oncreate:
Al hacer clic en el checkbox:
para un checkbox es complicarse la vida, pero extrapolemos las cosas.... 30 checkbox asociados cada uno con un Edit. podemos tener un solo evento Onclick del checkbox, pero común a los 30 checkboxs de esta forma: Sender : será el checkbox donde se haga clic TCheckbox(Sender) : es necesario un moldeo de tipos, para que el compilador trate a ese Tobject como un Tcheckbox TCheckbox(Sender).tag : Accedemos a su propiedad Tag, aquí se está usando lo ya comentado por roman, usar un tipo de datos integer para almacenar un puntero. TEdit(TCheckbox(Sender).tag) : moldeo necesario para que ese .Tag lo trate como un TEdit en lugar de un tipo de dato entero. Por último accedemos a su propiedad Text y lo modificamos. Si, ya, complejo ¿acaso es mejor algo así?: Onclic del checkbox1:
Onclic del checkbox2:
Onclic del checkbox3:
... no sigo, ya lo entiendes de sobra . Saludos.
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Problemas con punteros | Victor_TlrSoft | Varios | 4 | 01-02-2006 16:57:46 |
Punteros | davitcito | Varios | 2 | 25-04-2005 22:46:24 |
Punteros y Variables | Flores | OOP | 7 | 23-04-2005 22:09:55 |
Punteros | rafadrover | OOP | 8 | 18-09-2003 10:09:47 |
|