delphi - DBGrid 通过代码突出显示找到的行？

Question

我得到了: ADOTable1(代码人为整数，姓名人为字符串) DataSource1(日期集是ADOTable1) DBGrid1(连接到DataSource1，Options-dgRowSelect为true)

我使用以下代码在 ADOTable1 上找到一行

  ADOTable1.Locate(ADOTable11codepeople.FieldName, 1, []);

DBGrid1 正在选择正确的行。但没有亮点。

如何使 DBGrid 自动突出显示我从 ADOTable1 中找到的行？

我阅读了以下链接，但没有找到答案:

How to set active cell in TDBGrid?

Delphi - Using DBGrid to select rows from a search

View position in DBGrid when scrolling in Delphi

简单的源代码请...

PS:我使用Delphi 2010。

Answer 1

以下代码将使网格中选定的行突出显示

type
 THackDBGrid = class (TDBGrid);

...

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
           const Rect: TRect; DataCol: Integer; Column: TColumn;
           State: TGridDrawState);
begin
 if (THackDBGrid(dbGrid1).DataLink.ActiveRecord + 1 = THackDBGrid(dbGrid1).Row)
  or (gdFocused in State) or (gdSelected in State) then
   dbGrid1.canvas.Brush.Color:= clMoneyGreen;


 dbGrid1.DefaultDrawColumnCell (Rect, DataCol, Column, State);
end;