procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
if FClickCell then //如果是格子
ShowMessage('格子')
else ShowMessage('不是格子'); //如果不是格子
FClickCell:=False; //执行完后将FClickCell初始为False
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
FClickCell:=True; //点击格子时
end;
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
if FClickCell then //如果是格子
ShowMessage('格子')
else ShowMessage('不是格子'); //如果不是格子
FClickCell:=False; //执行完后将FClickCell初始为False
end;
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
FClickCell:=False; //点击标题时
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
FClickCell:=True; //点击格子时
end;