Ver Mensaje Individual
  #7  
Antiguo 29-12-2010
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: 19.441
Reputación: 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
Por lo que yo he entendido en la variable carpa tienes el nombre del botón al que deseas cambiarle el color (o cualquier otra propiedad). E intentas hacer una cosa como esta para cambiarle el nombre:

Código Delphi [-]
(carpa).Color:=cllime;
En delphi esto no funciona, pero sí se puede hacer; Basta con utilizar la función FindComponent, que te permite acceder a un componente a partir de su nombre; Por ejemplo, si estás utilizando un TPanel sería:

Código Delphi [-]
var
   pnl:TPanel;
   carpa:string;
   cmp:TComponent;
...
begin
   // supongamos que en carpa está el nombre.
   cmp := FindComponent(carpa);
   // Está Asignado?  (significa que lo ha encontrado)
   if Assigned(cmp) then begin
      pnl := Tpanel(cmp);
      pnl.color := clYellow;
   end;

Te lo he hecho paso a paso para que veas claras las operaciones; Si en lugar de un Tpanel es un TEdit se hace similar; Basta con cambiar el componente por otro de otro tipo.

En tu caso podría ser:

Código Delphi [-]
// en lugar de:
(carpa).Color:=cllime; 
// sería (dependiendo del componente que estés usando)
TEdit(FindComponent(carpa)).Color := clLime;
TLabel(FindComponent(carpa)).Color := clLime;
TButoon(FindComponent(carpa)).Color := clLime;
TPanel(FindComponent(carpa)).Color := clLime;

Si buscas en los foros sobre Findcomponent encontrarás muchos má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.
Responder Con Cita