怎样处理DBGrid.Column的双击事件？？分不多，意思意思。。呵呵。。

Question

Thank You

Answer 1

我知道的是單擊事件：
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
  if Column.FieldName = 'fName' then
    showmessage('aaa');
end;

Answer 2

就是：songlian77(八國聯軍) 的方法~

Answer 3

//try
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
{$J+}
const
  vTickCount: DWORD = 0;
  vColumnIndex: Integer = -1;
{$J-}
begin
  if (GetTickCount - vTickCount < GetDoubleClickTime) and
    (vColumnIndex = Column.Index) then begin
    ShowMessage('Double Click!');
    vTickCount := 0;
    vColumnIndex := -1;
    Exit;
  end;
  vTickCount := GetTickCount;
  vColumnIndex := Column.Index;
end;