Ver Mensaje Individual
  #4  
Antiguo 29-11-2008
Avatar de aeff
aeff aeff is offline
Miembro
 
Registrado: oct 2006
Ubicación: Cuba, Guantánamo
Posts: 348
Reputación: 18
aeff Va camino a la fama
bueno, según lo que preguntas...
Cita:
..como Cambio El Color De Fondo De Un Edit Por Medio De Codigo Al Oprimir Un Boton..
te puedo dar la siguiente referencia, en el evento OnClick de un Button coloca esto:
Código Delphi [-]
Edit1.Color := clRed;

pero si lo que quieres es cambiar el color de fonde de un Edit si no tiene textos escritos, entonces de la siguiente manera:

Código Delphi [-]
if TRIM(Edit1.Text) = '' then
  Edit1.Color := clRed;

pero si deseas un procedimiento para calcular de todos los Edit de una Form cual es el que no tiene textos escritos y cambiar su color de fondo, entonces, implementa esto:

Código Delphi [-]
procedure ValidarEn(aForm: TForm; aColorVacio, aColorEscrito: TColor);
var
  vIndex: Integer;
begin
  for vIndex := 0 to aForm.ComponentCount -1 do
    if  aForm.Components[vIndex] is TEdit then
      case Length(TRIM((aForm.Components[vIndex] as TEdit).Text)) of
        0:  (aForm.Components[vIndex] as TEdit).Color := aColorVacio;
        else
            (aForm.Components[vIndex] as TEdit).Color := aColorEscrito;
      end;
end;

y en el evento OnClick de un Button, coloca esto:

Código Delphi [-]
ValidarEn(Form1, clRed, clWhite);

te sirve de algo mi ayuda???
espero que si!

saludos!
aeff!

Última edición por aeff fecha: 29-11-2008 a las 12:22:42.
Responder Con Cita