É possível mudar a cor de um célula Dbgrid

[MarKteus 1]

Gostaria de mudar a cor do Dbgrid qdo ele recebe o foco.Ao receber o foco para digitação a célula fica branca, gostaria de trocar essa cor.É possível ?Markteus B)

[thalesoli 0]

Tente o código abaixo:

 

A rotina abaixo deverá ser colocada no evento OnDrawDataCell, do DBGrid.

 

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;Field: TField; State: TGridDrawState);beginif gdFocused in State thenwith (Sender as TDBGrid).Canvas dobeginBrush.Color:=clRed;FillRect(Rect);TextOut(Rect.Left, Rect.Top, Field.AsString);end;end;

falow