＋设为首页 ＋添加到收藏夹
Thank You
你是指双击在这一列上，还是双击在列标题上
我知道的是單擊事件：
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
if Column.FieldName = fName then
showmessage(aaa);
end;
自己用个timer控件。
就是：songlian77(八國聯軍) 的方法~
//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;
