Cita:
Empezado por feliz-58
...
entonces cada ves que el programa inicie o le den a otro boton para "actualizar" se verifique si en los respectivos eventos hay algo escrito, y si lo hay, los botones se coloquen de color rojo, ya sea el 1 o el 2.
es posible?
|
Hola feliz-58.
Con respecto al evento para verificar el estado del campo "Evento" y poner en consecuencia el color del
TBitBtn, podrías usar el evento
OnDataChange del
TDataSource asociado al
TADOTable:
Código Delphi
[-]
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
const
ESTADO : array[Boolean] of TColor = (clBlack, clRed);
begin
with ADOTable1 do
begin
if FieldByName('DIA').AsString = '1' then
BitBtn1.Font.Color := ESTADO[Trim(FieldByName('Evento').AsString)='']
else if FieldByName('DIA').AsString = '2' then
BitBtn2.Font.Color := ESTADO[Trim(FieldByName('Evento').AsString)=''];
end;
end;
Saludos
