Navegação em Registros

Delphi

07/08/2006

Uso SQLDataSet, ClientDataSet, DataSetProvider e DataSource para liberar os componentes no banco de dados.
Tenho um DBText que recebe ou ´Crédito´ ou ´Débito´ quando o usuário está inserindo um registro e seleciona uma de opções de um DBRadioGroup.
Gostaria que a cor da fonte do DBText ficasse em azul quando o usuário optasse por ´Crédito´ e em vermelho quando optasse por ´Débito´.
Como fazer isso?
Quando o usuário faz a seleção é fácil mudar a cor do DBText(é só colocar a rotina no OnClick do DBRadioGroup). Minha dúvida é como mudar a cor da fonte quando a tabela estiver sendo apenas visualizada (browser), ou seja, quando o usuário estiver movimentando o ponteiro do registro.
Alguém pode me ajudar?

Gracias


Armindo

Armindo

Curtidas 0

Respostas

Marco Salles

Marco Salles

07/08/2006

voce ja tentou isto :

procedure TForm1.SeuDataSetAfterScroll(DataSet: TDataSet);
begin
if CdsTbContaSequencia.AsString = ´Débito´ Then
   DBEdit1.Font.Color:=clRed
else
   DBEdit1.Font.Color:=clblue;
end;


SeuDataSet = ClientDataSet...


GOSTEI 0
POSTAR