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:
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!