FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Hola de nuevo.
A ver si esto te sirviera: Código:
procedure TForm1.Button1Click(Sender: TObject); var N: SmallInt; begin for N := 0 to ComponentCount -1 do begin if Components[N].Name = 'Edit1' then begin (Components[N] as TEdit).width := 100; end; end; end; Saludos
__________________
Be water my friend. |
#2
|
||||
|
||||
Cita:
Mejor de esta forma: Si el "Edit1" es una TLabel, por ejemplo, se produciría un error "gordo". No sé si todo el mundo nombra los componentes según su clase, pero es más seguro la opción que he citado, creo. |
#3
|
||||
|
||||
Cita:
__________________
Be water my friend. |
#4
|
||||
|
||||
Cita:
¿Cómo sabes que Edit1 es un TEdit? Y si en lugar de Edit1 lo has nombrado: CodigoDelCliente ¿cómo sabes de qué clase es? Incluso lo más habitual: edCodigoCliente, lbCodigoCliente, etc. ¿cómo sabes que el primero es un TEdit y el segundo un TLabel? Y lo mismo para otros prefijos edtCodCli, lblCodCli, etc. No existe un método fijo para nombrar los componentes, y por su nombre es imposible saber de qué tipo es. Aunque lo mismo tengo la cabeza en otro sitio (que la tengo) y no me he dado cuenta de lo que dices |
#5
|
||||
|
||||
Hombre.... si yo que estoy creando un formulario incluyo un Edit al que llamo Edit1 ¿sé que es un edit?
__________________
Be water my friend. |
#6
|
|||
|
|||
Tal y como lo plantea Casimiro, yo lo veo como mejor opción... Más abstracto, más genérico. más elegante, trasladable, reaprovechable, etc...
Por que si no no hace falta hacer un bucle que se recorra todos los objetos... con hacer n llamadas a FindComponent('Editn').With := x; ya estaría... Código:
procedure TForm1.Button1Click(Sender: TObject); var N: SmallInt; begin for N := 0 to pred(ComponentCount) do if (Components[N] is TEdit) or (Components[N] is TMemo) or .... then (Components[N] as TWinControl).height := (Components[N] as TWinControl).height *2; end; |
#7
|
||||
|
||||
Es que no todos tenemos costumbres de ese tipo, ya digo que he visto personas que nombra los componentes como codigocliente, telefonomovil, tarifamedia, etc. ¿y de qué tipo es cada uno? cualquiera sabe.
|
#8
|
||||
|
||||
Cheeeeeeeeeeeeeeeeeeeeeeeee.... pues si que estoy tonto.
Si sabes el nombre del componente lo atacas directamente.
__________________
Be water my friend. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
ayuda a instalar compomentes X86 o X64 en DX10.1 con windows 10pro 64bits | darkbits | Varios | 0 | 02-07-2016 17:56:57 |
problema para leer txt | mariaesde | Varios | 4 | 02-09-2008 15:06:51 |
funcion para leer archivo | jw4v32 | API de Windows | 1 | 26-04-2008 01:13:53 |
Compomentes TIbo | Neeruu | Varios | 0 | 06-04-2008 03:01:15 |
Necesito crear un permiso para escribir pero no para leer | federiconqn21 | Conexión con bases de datos | 5 | 07-07-2006 19:13:47 |
|