Lazarus DBGrid 控件进阶技巧：列标题换行与行高自定义

在 Lazarus 开发中，DBGrid 是最常用的数据展示控件之一。然而，在实际开发过程中，我们经常会遇到一些看似简单却不易解决的问题，比如列标题换行和行高自定义。本文将详细介绍这两个常见需求的实现方法。

一、DBGrid 列标题换行实现

问题背景

在默认情况下，DBGrid 的列标题是单行显示的。当列标题文字较长时，要么被截断，要么需要很宽的列宽才能完整显示，影响界面美观。

解决方案

要实现列标题的多行显示，需要完成以下两个步骤：

1. 设置 Title.Multiline 属性为 True

在 DBGrid 的列编辑器中，选中需要换行的列，将其 Title.Multiline 属性设置为 True。

2. 在 Caption 中插入换行符

在列的 Title.Caption 属性中，使用 #13#10 来指定换行位置。

代码示例

// 方法一：在设计器中设置// 双击 DBGrid 打开列编辑器，设置对应列的 Title.Multiline = True// 并在 Title.Caption 中输入：第一行#13#10第二行// 方法二：在代码中动态设置DBGrid1.Columns[0].Title.Multiline := True;
DBGrid1.Columns[0].Title.Caption := '客户' + #13#10 + '信息';
DBGrid1.Columns[1].Title.Multiline := True;
DBGrid1.Columns[1].Title.Caption := '联系' + #13#10 + '方式';

效果说明

设置完成后，列标题将按照 #13#10 的位置进行换行显示，可以有效节省横向空间，使界面更加紧凑美观。

二、DBGrid 行高自定义实现

问题背景

DBGrid 控件提供了 DefaultRowHeight 属性来设置数据行的默认高度，但对于标题行的高度，DBGrid 没有直接公开的属性来修改。

属性与方法说明

注意：DBGrid 虽然继承自 TCustomGrid，但 ResizeRow方法和RowHeights 属性在 DBGrid 中不可直接访问，需要通过特殊技巧来修改标题行高度。

解决方案：类继承技巧访问 ResizeRow 方法

由于 ResizeRow 方法和RowHeights 属性是 protected（受保护） 的，无法在外部直接调用，我们需要通过类继承技巧来访问。

unit Unit1;
{mode objfpc}{H+}
interface
uses
     Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, DBGrids, DB;
type	
	// 关键技巧：创建继承自 TCustomGrid 的辅助类
	// 不需要添加任何新方法，只是为了访问 protected 成员
TMyGrid = class(TCustomGrid);
TForm1 = class(TForm)
        DBGrid1: TDBGrid;
        DataSource1: TDataSource; 
    private
    		procedure InitDBGrid;
  public
  end;
  var
	Form1: TForm1;
implementation
{R *.lfm}
// 初始化 DBGrid 设置
procedure TForm1.InitDBGrid;
begin    // 设置数据行默认高度
    DBGrid1.DefaultRowHeight := 30;    // 通过类型转换访问 ResizeRow 方法
    // 参数说明：ResizeRow(行索引, 新高度)
    // 行索引 0 表示标题行，1 开始是数据行
    TMyGrid(DBGrid1).ResizeRow(0, 45);    // 启用列标题换行
    DBGrid1.Columns[0].Title.Multiline := True;
    DBGrid1.Columns[0].Title.Caption := '用户' + #13#10 + '姓名';

    DBGrid1.Columns[1].Title.Multiline := True;
    DBGrid1.Columns[1].Title.Caption := '联系' + #13#10 + '电话';
end;
// 窗体显示时初始化
procedure TForm1.FormShow(Sender: TObject);
begin
		InitDBGrid;
end;
end.

三、完整示例：列标题换行 + 行高调整

下面是一个完整的示例，同时实现列标题换行和行高自定义：

unit Unit1;
{mode objfpc}{H+}
interface
uses
    Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, DBGrids,
    DB, SQLite3Conn, SQLDB;
type
    // 用于访问 protected 方法的辅助类
    TMyGrid = class(TCustomGrid);
    TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    SQLQuery1: TSQLQuery;
    SQLite3Connection1: TSQLite3Connection;
    btnApply: TButton;
    private
    procedure InitDBGrid;
    procedure ApplyRowHeight;
    procedure btnApplyClick(Sender: TObject);
    public
    end;
var
    Form1: TForm1;
implementation
{R *.lfm}
// 初始化 DBGrid 列设置
    procedure TForm1.InitDBGrid;
    begin// 启用标题换行DBGrid1.Columns[0].Title.Multiline := True;
        DBGrid1.Columns[0].Title.Caption := '用户' + #13#10 + '姓名';
        
        DBGrid1.Columns[1].Title.Multiline := True;
        DBGrid1.Columns[1].Title.Caption := '联系' + #13#10 + '电话';
        
        DBGrid1.Columns[2].Title.Multiline := True;
        DBGrid1.Columns[2].Title.Caption := '注册' + #13#10 + '日期';// 自动调整列宽以适应内容DBGrid1.AutoAdjustColumns := True;
    end;
    // 设置行高
    procedure TForm1.ApplyRowHeight;
    begin
        // 设置数据行默认高度
        DBGrid1.DefaultRowHeight := 30;
        // 设置标题行高度（配合多行标题显示）
        // 通过类型转换访问 protected 的 ResizeRow 方法
        TMyGrid(DBGrid1).ResizeRow(0, 50);
    end;
    // 按钮点击事件
    procedure TForm1.btnApplyClick(Sender: TObject);
    begin
        ApplyRowHeight;
    end;
    // 窗体显示时初始化
    procedure TForm1.FormShow(Sender: TObject);
    begin
        // 加载数据
        SQLQuery1.Open;
        // 初始化列设置
        InitDBGrid;
        // 设置行高
        ApplyRowHeight;
    end;
end.

四、注意事项

1. 关于换行符

- #13#10 是 Windows 标准的换行符（CR+LF）

- 在 Linux/macOS 上可能需要使用 #10（LF）

- Lazarus 的 LCL 通常会自动处理跨平台换行符

2. 关于行高设置时机

- 必须在 DBGrid 完成初始化后调用

- 建议在数据加载完成后执行

- 如果动态切换标题换行状态，需要重新调整标题行高度

3. ResizeRow 方法说明：

参数1： 行索引（0 = 标题行，1 开始 = 数据行）

参数2： 新的行高度（像素）

4. 辅助类定义位置

TMyGrid 辅助类可以定义在：

- 单元的 type 部分（推荐）

- 单独的单元文件中

- 项目的公共单元中（便于多处复用）

五、总结

核心要点：

1. 列标题换行：Title.Multiline := True + Caption 中加入 #13#10

2. 数据行高度：直接使用 DefaultRowHeight 属性

3. 标题行高度：通过 TMyGrid = class(TCustomGrid) 技巧访问 ResizeRow 方法或RowHeights属性

这两个技巧虽然简单，但在实际开发中非常实用。通过掌握这些方法，可以让你的 Lazarus DBGrid 界面更加美观和专业。

参考资源：

- Lazarus 官方文档：
https://www.lazarus-ide.org/

- Free Pascal 编译器文档：
https://www.freepascal.org/

- Lazarus 组件参考：
https://wiki.freepascal.org/DBGrid