FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Problema con Asignacion a un Objeto.
Hola.
Tengo 150 objetos Tpanel y dentro de estos e incustrado un objeto Updown, y los he relacionado para que incrementen. Sin problema. Ahora quiero ponerlos a un valor determinado en ejecución:....creo un boton y con el evento BitBtnClick quiero hacer la asignacion y este es el código que no me funciona.... procedure TPANEL1.BitBtn1Click(Sender: TObject); var a,resto:smallint; cad:string; begin for a:=1 to 150 do begin resto:= a mod 2; if resto=0 then begin 'Updown'+inttostr(a)+'.Position':=999; end else begin 'Updown'+inttostr(a)+'.Position':=0; end; end; end; Un saludo. Tenéis un portal de muy excelente a muy excelentísimo. Última edición por BEPAI fecha: 02-04-2007 a las 10:52:52. |
#2
|
||||
|
||||
Debes utilizar FindComponent Para acceder a un componente a partir de su nombre.
Revisa la ayuda y encontrarás ejemplos...
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
Por favor podrías ponerlo completo, yo lo he modificado en el siguiente sentido:
.........y no funciona. Estoy en pañales en esto. Saludos. |
#4
|
||||
|
||||
Para hacerlo bien sería algo así:
De forma similar para el otro. Una vez que has encontrado el componente (que se devuelve como tipo generico) hay que hacer el CAST, para poder acceder a el con el tipo correcto (en este caso TUpDown).
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#5
|
|||
|
|||
Encontré esto:
Lo de self no lo entiendo, pero bueno, de todas formas muy agradecido. |
#6
|
||||
|
||||
Aquí lo que está haciendo es crear 20 componentes y luego acceder a ellos utilizando FindComponent, cosa bastante tonta por cierto, ya que FindComponent no es muy eficiente y sólo se debería utilizar cuando no exista otro remedio, como en tu caso, pero no aquí que ya están disponibles los 20 componentes (por lo tanto no tiene sentido buscarlos con este método). Sólo le encuentro sentido como muestra de utilización, pero creo que el código no es muy acertado, no porque sea incorrecto, sino porque muestra una programación muy ineficiente. El Self, se refiere al "objeto actual"; Si te fijas en la definición de los procedimientos lo verás claramente:
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Asignacion Automatica | frholguin | Varios | 9 | 19-10-2006 10:24:54 |
Problema con asignacion de valores en un rango | Valeric | Servers | 4 | 06-09-2005 13:44:04 |
Asignacion de campos | jdangosto | OOP | 1 | 05-08-2005 10:41:11 |
Asignación IP | juanchi | Internet | 1 | 24-09-2003 19:07:05 |
Asignación de Campo autonumérico | Ulises | Providers | 2 | 15-07-2003 15:44:18 |
|