Cita:
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;