Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-07-2008
capo979 capo979 is offline
Miembro
 
Registrado: abr 2007
Posts: 87
Poder: 18
capo979 Va por buen camino
Cambiar caption componentes

Hola Gente:

Necesito cambiar el caption de los componentes que hay en un form.
Por ejemplo tengo un formulario con Groupbox, labels, paneles, etc. Lo que quiero hacer es cambiar el caption de los componentes que esten en el formulario que tengan caption según lo que indique el caption.
Sin importar que componente tengo en el form

lo que había hecho era un for como el siguiente

for ind := 0 to ComponentCount -1 do
if (Components[ind] is Tlabel) then
TLabel(Components[ind]).Caption:= 'algo';

de esa forma puedo pero en realidad yo no se que componentes tengo, en este ejemplo que mostre pregunto si son labels pero en realidad puedo tener cualquier componente y quiero cambiar los que tengan caption

Alguno me puede dar una mano con esto

muchas gracias y saludos a todos
Responder Con Cita
  #2  
Antiguo 22-07-2008
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.609
Poder: 30
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
En ese caso, en lugar de Components y ComponentCount, utiliza las propiedades Controls y ControlCount, respectivamente, con las cuales no necesitarás hacer ningún molde de tipo.

El único problema de esta solución es que no cambiará el título de los controles que estén dentro de otros controles, a menos que realices llamadas recursivas sobre el arreglo Controls de cada componente TWinControl del formulario.

Espero te sirva de orientación.

Saludos.

Al González.

P.D. EDITO: Aún puedes usar Components y ComponentCount preguntando en el If si el componente es un TControl (en lugar de TLabel). Pero para cualquiera de las dos soluciones deberás tener en cuenta que Caption es una propiedad protegida a nivel de TControl, por lo que puede resultarte necesario hacer lo que se conoce como "molde de acceso" declarando una clase hija de TControl y usarla en el "type cast" que haces.

Última edición por Al González fecha: 22-07-2008 a las 03:19:22.
Responder Con Cita
  #3  
Antiguo 22-07-2008
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por capo979 Ver Mensaje
de esa forma puedo pero en realidad yo no se que componentes tengo, en este ejemplo que mostre pregunto si son labels pero en realidad puedo tener cualquier componente y quiero cambiar los que tengan caption
Supongo que lo que no quieres es tener un montón de IF seguidos preguntando por los diferentes tipos de componentes.
Para evitar eso puedes utilizar RTTI.

En mi página Web, en la sección de tips hay uno titulado "Modificar propiedades de controles en ejecución utilizando RTTI", que explica cómo utilizar RTTI para evitar tener que hacer justo cosas como estas...

Código Delphi [-]
// recorrer los controles
 for i := 0 to (Self.ComponentCount - 1) do begin
 
 // Es un Edit
 if (Components[i] is TEdit) then
 TEdit(Components[i]).Enabled := False; 
 // Es un LAbel
 if (Components[i] is TLabel) then
 TLabel(Components[i]).Enabled := False;
 // Es un ListBox
 if (Components[i] is TListBox) then
 TListBox(Components[i]).Enabled := False;

... 
__________________
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.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Cambiar Caption Caral Varios 13 08-02-2008 15:22:13
Cambiar Caption Ayuda...!!! alexis19 Varios 3 26-01-2008 15:25:42
Cambiar el caption de un boton segun el registro nenufer Varios 8 08-06-2006 10:32:48
Cambiar título/caption de un programa Casimiro Notevi Varios 3 23-10-2005 00:03:06
cambiar color de caption al presionar unko! OOP 4 13-03-2005 18:30:33


La franja horaria es GMT +2. Ahora son las 00:47:18.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi