delphi - 如何在关闭行选择的情况下为 DBGrid 中的整行着色？

Question

RowSelect 破坏了 OnCellClick 的功能，所以我需要关闭 RowSelect。那么如何通过突出显示当前行的所有单元格来模拟行选择的外观呢？

Answer 1

使用TDBGrid.OnDrawColumnCell事件，并设置State以指示该行被选中。

procedure TfrmPrimaryCare.dbGrdPCClaimsDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  NewState: TGridDrawState;
  RowSelected: Boolean;
begin
  NewState := State;
  RowSelected := (Sender as TDBGrid).SelectedRows.CurrentRowSelected;
  if (RowSelected) then
    NewState := NewState + [gdSelected];
  TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, NewState);
end;

Answer 2

这对我有用（dgRowSelect=False和dgMultiSelect=False）：为和访问受保护的方法和两个变量
声明黑客类型DBGridGridDataLink

type
  THackGrid = class(TDBGrid);
  THackDataLink = class(TGridDataLink);
var
  HackGrid: THackGrid;
  HackDataLink: THackDataLink;

在OnFormCreate分配变量以使它们在绘图时可用：

procedure TMyForm.FormCreate(Sender: TObject);
begin
  HackGrid := THackGrid(MainGrid);
  HackDataLink := THackDataLink(HackGrid.DataLink);
end;

并使用以下方法测试选定的行TGridDataLink.GetActiveRecord：

procedure TMyForm.MainGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if Not (gdSelected in State) and (HackGrid.Row = HackDataLink.GetActiveRecord + 1) then
    MainGrid.Canvas.Brush.Color := clInfoBk;

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