DBGrid tartalmának rendezése az oszlopok fejlécére kattintva

Először is figyelemmel kell kísérnünk az egér mozgását. Amikor a fejléc fölé ér, megváltoztatjuk a kurzor alakját. A DBGrid rendelkezik egy MouseMove eseménnyel, melyet a következőképpen használunk fel:

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  pt: TGridcoord;
begin

Amennyiben az első soron belül mozog az egérmutató, azaz pozíciójának y koordinátája nulla, az alakját megváltoztatjuk. Ellenkező esetben az alapértelmezett alakot kapja.

  pt:= DBGrid1.MouseCoord(x, y);
  if pt.y=0 then
    DBGrid1.Cursor:=crHandPoint
  else
    DBGrid1.Cursor:=crDefault;
end;

Azt, hogy melyik oszlopra kattintottunk, a DBGrid OnTitleClick eseményének segítségével határozhatjuk meg.

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var i:integer;
begin

A DBGrid összes oszlopát megvizsgáljuk egy for ciklussal. Az aktuális oszlop indexét a Column.Index tárolja. Amennyiben a vizsgált oszlopindex megegyezik az aktuálissal, a fejléc betűinek stílusát vastagra állítjuk, és az adattábla IndexFieldNames tulajdonságát beállítjuk a DBGrid által tárolt értékre. Ennek hatására a beállított oszlopnév szerint rendezésre kerül az adathalmaz.

  for i:=0 to DBGrid1.Columns.Count-1 do
  begin
    if i<>Column.Index then
      DBGrid1.Columns[i].Title.Font.Style:=
      DBGrid1.Columns[i].Title.Font.Style - [fsBold]
    else
      begin
        DBGrid1.Columns[i].Title.Font.Style:=
        DBGrid1.Columns[i].Title.Font.Style + [fsBold];
        Table1.IndexFieldNames:=DBGrid1.Columns[i].FieldName;
      end;
  end;
end;