(Resolvido) Ficar Piscando um Determinada Linha do DBGrid
Eu queria que quando fosse um rascunho urgente a determinada linha do grid, ficasse piscando...esses são os dados.
o campo que eu trago a infomarcao se é urgente é o Field 3.
procedure TFrmIzaFin.DbgRascunhoDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If Not odd(DtsRascunho.DataSet.RecNo) Then
If Not (gdSelected in State) Then
begin
DbgRascunho.Canvas.Brush.Color:=clSkyBlue;
DbgR
Veja este exemplo e faça uma adaptação ao seu código deixar uma celula "piscando" no grid.
var
Form1: TForm1;
posicao : TRect;
cor : TColor;
implementation
{$R *.DFM}
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if gdSelected in State then
begin
With (Sender as TDbGrid).Canvas do
begin
Brush.Color := clBlue;
FillRect(Rect);
posicao:= Rect;