delphi dbgrid oncellclick取得鼠标点击位置的列号

Question

ColIndex:=Column.Index;不管我点在哪里它都赋值0，我想得到只有我点击在第3列时触发一段命令

Answer 1

  if Column.Index=3 then
  begin
    ShowMessage('1');
  end;注意Index是从0开始

Answer 2

IF Column.Index <> 3 THEN Exit;

Answer 3

经过测试，情况是这样的：1、dbgrid有字段，但没有连接数据集，会出现你说的情况，一直都是0；
2、连接数据集后，一下代码都是可以正常使用的：
  A、ShowMessage(IntToStr(Column.Index));
  B、ShowMessage(IntToStr(dbgrid1.SelectedField.Index));