procedure TForm1.DBGrid1TitleClick(
Column: TColumn);
{$J+}
const
PreviousColumnIndex : integer = -1;
{$J-}
begin
with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
begin
if PreviousColumnIndex > -1 then
DBGrid1.Columns[PreviousColumnIndex].Title.Font.Style :=
DBGrid1.Columns[PreviousColumnIndex].Title.Font.Style - [fsItalic];
Column.title.Font.Style := Column.title.Font.Style + [fsItalic];
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;