delphi - Delphi 7 - TDBGrid 风格

Question

如何在 Delphi 7 中使用程式化表格？例如：

Answer 1

如果您的意思是要以 TDbGrid 组件为主题，您可以使用Themed DBGrid runtime replacementJeremy North 和 Andreas Hausladen 提供的主题。

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;

下载完整示例： 文件