Hola Choclito.
Proba este código a ver si hace lo que estas buscando:
Código Delphi
[-]
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
FValor:= '';
FBlink:= False;
TimerBlink.Interval:= 200; TimerSound.Interval:= 30000; end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
CBLNK: array[0..1] of TColor = (clLime, clWhite);
begin
if Query1.FieldByName('Codigo').AsString = FValor then
DBGrid1.Canvas.Brush.Color:= CBLNK[Integer(FBlink)];
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
FValor:= Trim(Edit1.Text);
Query1.Locate('Codigo', Edit1.Text, [])
end;
procedure TForm1.TimerBlinkTimer(Sender: TObject);
begin
FBlink:= not FBlink;
DBgrid1.Invalidate;
end;
procedure TForm1.TimerSoundTimer(Sender: TObject);
begin
MessageBeep(MB_OK);
end;
...
Un saludo.