点击wwDBGrid的标题进行排序

{--排序--cyj 2009-7-13}
procedure TDispatchForm.wwDBGridSort(Sender: TObject;
  AFieldName: String);
begin

   //--cyj 2009-7-10 起
if ((Sender as TwwDbGrid).DataSource.DataSet.State in [dsedit,dsinsert]) then Exit;
  ProgressStatus.Caption:='正在排序资料,请稍候>>>>>';
  ProgressStatus.Visible:=True;
  Application.ProcessMessages;
  ((Sender as TwwDbGrid).DataSource.DataSet as TClientDataSet).Indexdefs.Clear;
  if (Sender as TwwDbGrid).Tag=0 then
  begin
    with ((Sender as TwwDbGrid).DataSource.DataSet as TClientDataSet).Indexdefs.AddIndexDef do
    begin
    Name:=AFieldName;
    Fields:=AFieldName;
    end;
    (Sender as TwwDbGrid).Tag:=1;
  ((Sender as TwwDbGrid).DataSource.DataSet as TClientDataSet).IndexName:=AFieldName;
  end else
  begin
    with ((Sender as TwwDbGrid).DataSource.DataSet as TClientDataSet).Indexdefs.AddIndexDef do
    begin
    Name:=AFieldName+'1';
    Fields:=AFieldName;
    DescFields:=AFieldName;
    (Sender as TwwDbGrid).Tag:=0;   
    end;
   ((Sender as TwwDbGrid).DataSource.DataSet as TClientDataSet).IndexName:=AFieldName+'1';   
  end;
  ProgressStatus.Visible:=False;

   //--cyj 2009-7-10 止
end;