Click on the field name in DBGRID to sort (reproduced) according to the fields of this column (reproduced)

Void __fastcall tfrace :: Gridtitleclick (TCOLUMN * Column) {tcustomadodataset * DS = DYNAMIC_CAST (Column-> grid-> datasource-> dataset); if (! ds) return;

STATIC ANSISTRING FSORTDIR; IF (fsortdir == "desc") fsortdir = "ASC"; else fsortdir = "dec"; ds-> sort = column-> fieldname fsortdir;}

FSortdir is a member variable (global variable) this method only suitable for ADO controls