Delphi DBGrid是一个功能强大的组件，如果您正在开发数据感知应用程序，那么您可能每天都在使用它。下面，我们将了解如何向您的数据库应用程序中添加更多用户肯定会喜欢的功能。

按照《Delphi数据库编程初学者指南》中描述的概念，下面的示例使用ADO组件（AdoQuery/AdoTable连接到ADOConnection，DBGrid通过数据源连接到AdoQuery）在DBGrid组件中显示数据库表中的记录。

当将所有组件名放在表单上时（DBGrid1、ADOQuery1、AdoTable1等），它们都保留为Delphi命名。

鼠标移动到dbgrid标题区域上

首先，让我们看看如何在鼠标指针移动到DBGrid标题区域时更改鼠标指针。您所要做的就是将代码添加到DBGrid组件的OnMouseMove事件中。

下面的代码只是使用DBGrid组件的MouseCoord属性来“计算”鼠标指针的位置。如果位于DGBrid标题区域上方，则pt.y等于0，这是DBGrid中的第一行（标题区域显示列/字段标题）。

procedure TForm1.DBGrid1MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer);var pt: TGridcoord;begin pt:= DBGrid1.MouseCoord(x, y); if pt.y=0 then DBGrid1.Cursor:=crHandPoint else DBGrid1.Cursor:=crDefault;end;

按列排序单击并更改列标题字体

如果使用ADO方法开发Delphi数据库，并且希望对数据集中的记录进行排序，则需要设置AdoDataset（ADOQuery，AdoTable）的sort属性。

Sort属性是widestring值，指示标准SQL查询的“ORDER BY”部分。当然，您不需要编写SQL查询就可以使用Sort属性。只需将Sort属性设置为单个字段的名称或以逗号分隔的字段列表，每个字段都遵循排序顺序。

下面是一个例子：

ADOTable1.Sort := 'Year DESC, ArticleDate ASC'

DBGrid组件的OnTitleClick事件有一个Column参数，指示用户单击的列。每个列（TColumn类型的对象）都有一个字段属性，指示该列表示的字段（TField），其FieldName属性中的字段包含基础数据集中的字段名称。

因此，要按字段/列对ADO数据集进行排序，可以使用一个简单的行：

with TCustomADODataSet(DBGrid1.DataSource.DataSet) doSort := Column.Field.FieldName; // + ' ASC' or ' DESC'

下面是OnTitleClick偶数处理程序的代码，该处理程序按列单击对记录进行排序。代码一如既往地扩展了这个想法。

首先，我们想以某种方式标记当前用于排序顺序的列。接下来，如果我们单击一个列标题，并且数据集已经按照该列进行了排序，那么我们希望将排序顺序从ASC（升序）更改为DESC（降序），反之亦然。最后，当我们按另一列对数据集进行排序时，我们希望从先前选择的列中删除标记。

为了简单起见，为了标记对记录进行“排序”的列，我们只需将列标题的字体样式更改为粗体，并在使用另一列对数据集进行排序时将其删除。

procedure TForm1.DBGrid1TitleClick(Column: TColumn);{$J+}const PreviousColumnIndex : integer = -1;{$J-}beginif DBGrid1.DataSource.DataSet is TCustomADODataSet thenwith TCustomADODataSet(DBGrid1.DataSource.DataSet) dobegintry DBGrid1.Columns[PreviousColumnIndex].title.Font.Style := DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold]; exceptend; Column.title.Font.Style := Column.title.Font.Style + [fsBold]; PreviousColumnIndex := Column.Index; if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort)= 0) then Sort := Column.Field.FieldName + ' DESC' else Sort := Column.Field.FieldName + ' ASC'; end;end;

上面的代码使用类型化常量为排序顺序保留以前“选定”列的值。