Cambiar color de texto en un edit
Como podria cambiar el color del texto en un edit.
Por ejemplo : el Texto es el resultado de una resta y quiero que cuando sea negativa se ponga en color rojo. Lo unico que consigo es que el fondo del edit se cambie de color ed1 := (a-b) ; edit1.Text := FloatToStr(ed1) ; If ed1 < 0 then Edit1.Color := clRed ; |
Edt1.Font.Color := ClRed
|
Cita:
seguire investigando. Algo estoy haciendo mal.E57 := StrToFloatDef(Edit35.Text,0)+StrToFloatDef(edit36.Text,0)+StrToFloatDef(Edit37.Text,0)+StrToFloatDef (Edit38.Text,0)+StrToFloatDef(Edit39.Text,0)+StrToFloatDef(Edit40.Text,0)+StrToFloatDef(Edit41.Text, 0) ; Edit57.Text := FloatToStr(e57) ; if e57 < 0 Then edit57.Font.Color := clRed ; |
Hola marjo!!!
Te aconsejo que uses las etiquetas que correspondan para mostrar código, así quedará más legible. La propiedad que te han indicado es correcta, ¿seguro que la condición del IF se cumple? |
Cita:
Código:
ParentFont = False ¿?¿?¿? |
La verdad que funciona. Pero en la pantalla que lo estoy haciendo no funciona. No se porqué pero encuanto lo averigue os lo haré saber.
Gracias a todos por vuesta ayuda e interes. Un abrazo. |
La franja horaria es GMT +2. Ahora son las 14:20:24. |
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