DBGRID中,当横向滚动条滚动时如何让某一列固定不动?

Question

在DBGridEh中有FrozenCols这个属性，
设值为1的话，第一列固定，2…………
依此类推

Answer 1

我 们 知 道 Delphi的 TStringGrid有 一 个 属 性 FixedCols来 指 定 不 滚 动 的列 。 虽 然 TDBGrid不 能 直 接 使 用 这 一 属 性 ， 但 通 过 强 制 类 型 转 换 也 可 以 实 先 这 一 功 能 ， 因为 这 两 个 类 都 来 自 TCustomGrid类 。 下 面 我 们 以 Delphi 3.0的 Demos\Db\CtrlGrid为 例 来说 明 具 体 的 用 法 。 在 这 个 例 子 的 TFmCtrlGrid.FormShow过 程 中 加 入 如 下 一 行 ：TStringGrid(DbGrid1).FixedCols := 2; 
运 行 该 程 序 ，在 左 右 移 动 各 列 时， Symbol列 不 会 移 动 。 除 了 这 种 方 法 ， 也 可 以 采 用 下 面 的 方 法 ： 首 先 在 Form声 明 部 分 加上 type TMyGrid = Class(TDBGrid) end;然 后 在 TFmCtrlGrid.FormShow过程中加入： TMyGrid(DbGrid1).FixedCols := 2; 
两 者 从 形 式 上 略 有 不 同 ， 但 实 质 都 是 一 样 的 。 我 们 这 里 设 置FixedCols为 2， 这 是 因 为 在 DBGrid构 件 最 左 侧 有 个 指 示 列 ， 如 果 你 将 DBGrid的 Options属性 的 dgIndicator设 为False， 则 应 设 置 FixedCols为 1。

Answer 2

在DBGridEh中有FrozenCols这个属性，
固定一列为1，二列为2依次累推