Dbgrid Basico

[Guest AL]

Alo pessoal

Tenho um codigo que deixa o registro em dbgrid de outra cor segundo um if.

(esta primeira frase só para dizer que o drawcol não está default se é que importa)

Tambem o dbgrid normalmente fica com a linha de outra cor após de clicar nele

Mas não fica de outra cor se vou navegando pelo Navigator SEM ter clicado no dbgrid.

Como fazer isto: Que o registro f selecionado fique sempre com outra cor (BRUSH) SEM se ter clicado no dbgrid.

Deve ser muito simples mas não sei .D7 / Firebird ZEos

Obrigado desde já

[Progr'amador]

Olá,

pelo que eu entendi, faça isso:

no componente Query ou Table do DBGrid, no evento AfterScroll coloque o mesmo código que você esta usando no onClick do DBGrid ou coloque só assim:

procedure TForm1.Query1AfterScroll(DataSet: TDataSet);
begin
   DBGrid1Click(Sender);
end;

Abs. Progr'amador.

[Arlon]

Acho que assim tam´bém dá certo:

procedure TForm1.Query1AfterScroll(DataSet: TDataSet);

begin

DBGrid1.Click(Active);

end;