Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Problema Con Cambio De Color De Label (https://www.clubdelphi.com/foros/showthread.php?t=41888)

ANDRES86 28-03-2007 17:46:42

Problema Con Cambio De Color De Label
 
Hola a todos, mi problema es el siguiente, estoy cambiandole la propiedad color y caption a un label por codigo, pero me cambia el color mas no la propiedad caption.

Código Delphi [-]
if Edit1.Text = 'RED' then
  Label1.Font.Color:=ClRED;
  Label1.Caption:='RED';
if Edit1.Text = 'BLUE' then
  Label1.Font.Color:=ClBlue;
  Label1.Caption:='Blue';
if Edit1.Text = 'GREEN' then
  Label1.Font.Color:=ClGreen;
  Label1.Caption:='GREEN';

Siempre el label queda con la palabra green, los colores si funcionan; pero, las demas palabras nunca se muestran, mi pregunta es si esto esta mal hecho o es que se hace de otra forma.

dec 28-03-2007 17:52:41

Hola,

Utiliza el "begin", puesto que a cada "condición" le van a corresponder varias instrucciones:

Código Delphi [-]
if Edit1.Text = 'RED' then
begin
  Label1.Font.Color:=ClRED;
  Label1.Caption:='RED';
end
else
if Edit1.Text = 'BLUE' then
begin
  Label1.Font.Color:=ClBlue;
  Label1.Caption:='Blue';
end
else
if Edit1.Text = 'GREEN' then
begin
  Label1.Font.Color:=ClGreen;
  Label1.Caption:='GREEN';
end;


La franja horaria es GMT +2. Ahora son las 08:38:12.

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