Delphi7- TDBGrid风格

Question

如何在Delphi7中使用风格化表？例如：

​

​

Answer 1

如果你想要以TDbGrid组件为主题，你可以使用Jeremy North和Andreas Hausladen的Themed DBGrid runtime replacement。

Answer 2

我在Delphi 7和Windows 8.1上为您编写并测试了这个示例

使用Event DrawColumnCell更改颜色或其他内容。

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  try
    if Column.FieldName = 'FIRST_NAME' then
      DBGrid1.Canvas.Brush.Color := clGreen;
  finally
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

下载完整示例：file