Ver Mensaje Individual
  #7  
Antiguo 10-12-2010
rruffino rruffino is offline
Miembro
 
Registrado: dic 2004
Ubicación: Berrotaran, Cordoba - Argentina
Posts: 215
Reputación: 20
rruffino Va por buen camino
Wink Perfecto!!

Bien Caro, gracias, ha funcionado perfectamente. Ahora por ejemplo yo he creado varios labels en tiempo de ejecucion y quisiera mediante un timer cambiar el color de la fuente, te adjunto el codigo que he hecho pero no me lo hace. Este codigo va en un timer, o por ahi hay otra forma de hacerlo que no la se.
Código Delphi [-]
var
  aLabel: TComponent;
begin
  aLabel.FindComponent('NotaUrg_0');
  if Assigned(aLabel) then
    begin
      if (TNxLabel(aLabel).Font.Color=ClBlack)then
        begin
          TNxLabel(aLabel).Caption:='Hola';
          TNxLabel(aLabel).Font.Color:=clRed
        end
      else
        begin
          TNxLabel(aLabel).Font.Color:=clBlack;
          TNxLabel(aLabel).Caption:='Chau';
        end
    end;
end;

Desde ya muchas gracias!!
Responder Con Cita