Que un Boton cambie de color cuando haya texto en un campo en una BD Access

[feliz-58]

Empezado por Casimiro Notevi

Podías hacer un esfuerzo, porque así no vas a aprender nada, copiando el código que te ponen

Gracias, ya lo hice, a mi manera, pero funciona:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  R,B:string;
begin
R:='clred';
B:='clblack';
if adotable1.Locate ('Dia', '1', [])
then
begin
if
dbmemo1.Text = 'No hay evento(s)'
then
bitbtn1.Font.Color:=StringToColor(R);
if
dbmemo1.Text <> 'No hay evento(s)'
then
bitbtn1.Font.Color:=StringToColor(B);
end;
end;

[Casimiro Noteví]

Estupendo
No era tan difícil, ¿verdad?

[feliz-58]

Empezado por Casimiro Notevi

Estupendo
No era tan difícil, ¿verdad?

Esto, no tanto, las otras cosas si XD

[[nlsgarcia]]

feliz-58,

Empezado por feliz-58

...Que un Botón cambie de color...

Revisa este código:

Código Delphi [-]
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
   case RadioGroup1.ItemIndex of
      0 : BitBtn1.Font.Color := clBlue;
      1 : BitBtn1.Font.Color := clRed;
      2 : BitBtn1.Font.Color := clYellow;
      3 : BitBtn1.Font.Color := clNavy;
      4 : BitBtn1.Font.Color := clGreen;
   end;
end;

El código anterior permite cambiar el color de un componente TBitBtn en tiempo de ejecución sin utilizar la función StringToColor.

Espero sea útil

Nelson.