delphi - 有没有办法确定滚动条在 TDBGrid 上是否可见

Question

我想在 TDBGrid 的右下角显示一些东西，但我不想覆盖滚动条。

有确定滚动条是否可见的好方法吗？ (以及它们的大小)

Answer 1

可能最好的方法是使用 ClientRect属性，它以自己的坐标给出控件的客户矩形(这意味着 Left 和 Top 始终为 0)。 “客户矩形”是控件中不是边框和滚动条的部分。

为了比较，BoundsRect属性是父窗口坐标系中窗口的完整矩形。

例如，

和

pnSnowman.SetBounds(
  DBGrid1.Left + DBGrid1.ClientWidth - pnSnowman.Width - 8,
  DBGrid1.Top + DBGrid1.ClientHeight - pnSnowman.Height - 8,
  pnSnowman.Width,
  pnSnowman.Height
);

结果