Calcular el Numero de columna de un DBGrid
 

Hola, tengo una pequeña duda. Estoy usando un dbgrid en uno de los muchos forms de mi aplicacion. Necesito saber el nº de columna del dbgrid en el que el usuario ha hecho clic con el ratón.
¿Me podeis echar una mano?
Gracias y saludos a todos

Pues con Column.Index y la ayuda del Evento OntitleClick

Código Delphi [-]
  //Obtengo el número de columna del DbGrid
  TStringGrid(MiDbGrid).Col
 
  //Obtengo El índice del campo seleccionado en el dbgrid
   MidbGrid.SelectedIndex
 
  //Aprovecho el Index para obtener información del campo seleccionado
   MiDbGrid.colums[MidbGrid.SelectedIndex].Field.FieldName
   MiDbGrid.colums[MidbGrid.SelectedIndex].Title

Espero que te sirva

No funciona
 

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.

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;