关于adoquery.Locate的问题

Question

在使用adoquery.Locate查出结果后，
有什么办法能使结果成选中状态啊。也就是那条记录会出现显眼蓝色背景

Answer 1

我有个例子，给你吧
procedure TFplzj.bsSkinDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TbsColumn;
  State: TGridDrawState);
begin
if startselect then
begin
if endselect then
  begin
    if (table1.RecNo>=startrecord)and(table1.RecNo<=endrecord) then
    begin
        with self.bsSkinDBGrid1 do
        begin
        canvas.Font.Color:=clyellow;
        canvas.Brush.Color:=clnavy;
        defaultdrawcolumncell(rect,datacol,column,state);
        end;
    end;
  end else
  begin
    if table1.RecNo=startrecord then
    begin
        with self.bsSkinDBGrid1 do
        begin
        canvas.Font.Color:=clyellow;
        canvas.Brush.Color:=clnavy;
        defaultdrawcolumncell(rect,datacol,column,state);
        end
    end;
  end;
end;
end;