曾看见CSDN文档中有介绍到:通过ADOQuery或其它数据集组件的Sort属性配合DBGrid的OnTitleClick事件,可以方便地实现此功能。因为Sort属性可以让活动数据集按指定的字段进行排序,也可以选择排序方式(升序/降序)。这个功能的确很实用。(http: //blog.csdn.net/jlee084/archive/2004/12/20/223284.aspx)。我改进了一下这功能,在单击标题后分别在标题加上三角(▲)和倒三角形(▼)表示当前排序方式为升序和降序;
- procedure TForm1.DBGrid1TitleClick(Column: TColumn);
- var
- I,ii:Integer;
- cStr:string;
- c:TColumn;
- begin
- for ii:=0 to TDBGrid(Column.Grid).Columns.Count-1 do
- begin
- c:=TDBGrid(Column.Grid).Columns[ii];
- cStr:=c.Title.Caption;
- if (pos('▲',cStr)=1) or (pos('▼',cStr)=1) then
- begin
- Delete(cStr,1,2);
- c.Title.Caption:=cStr;
- end;
- end;
- for i:= 1 to DBGrid1.Columns.Count do
- begin
- //恢复所有标题字体为默认
- DBGrid1.Columns[i-1].Title.Font.Color := clWindowText;
- DBGrid1.Columns[i-1].Title.Font.Style := [];
- end;
- if ADOQuery1.Sort<>(Column.FieldName+ 'ASC') then //判断原排序方式
- begin
- ADOQuery1.Sort := Column.FieldName+' ASC';
- //Column.Title.Font.Color := clRed; //改变标题行字体为红色,表示当前的排序方式为升序
- Column.Title.Font.Style := [fsBold];
- Column.Title.Caption:='▲'+Column.Title.Caption; //标题加上三角形表示当前排序方式为升序;
- end
- else begin
- ADOQuery1.Sort := Column.FieldName+ 'DESC';
- //Column.Title.Font.Color := clBlue; //改变标题行字体为红色,表示当前的排序方式为降序
- Column.Title.Font.Style := [fsBold];
- Column.Title.Caption:='▼'+Column.Title.Caption; //标题加上倒三角形表示当前排序方式为降序;
- end;
- end;
- procedure TForm1.Button1Click(Sender: TObject);
- var
- Index: Integer;
- begin
- for Index := 0 to ControlCount - 1 do
- begin
- if Components[Index] is TEdit then
- begin
- (Components[Index] as TEdit).Text := '';
- end;
- end;
- end;