Calcular el Numero de columna de un DBGrid

[luxus]

Hola, muchas gracias por vuestra rápida respuesta pero desafortunadamente no me funciona, o es que no lo he hecho bien.

Al poner i:=dbgrid1.column.index; ME DA UN ERROR YA QUE NO COMPILA.

En cambio al poner: i:=TStringGrid(dbgrid1).Col; ME COMPILA BIEN PERO NO ME INDICA EL VALOR DE LAS COLUMNAS DEL DBGRID. SI UN DBGRID TIENE 4 COLUMNAS ME DEBERIA INDICAR LAS COLUMNAS 0-3 PERO SOLO ME SALE UN NUMERO SIN VARIAR.

[vtdeleon]

La respuesta que te he dado funciona con el evento OnTitleClick del DbGrid.

Código Delphi [-]
procedure TForm1.dbgrd1TitleClick(Column: TColumn);
begin
  ShowMessage(IntToStr(Column.Index));
end;