再次可见后如何在 TScrollBox 中显示滚动条？答案

【问题标题】：How to show scrollbars in TScrollBox after it has been made visible again?再次可见后如何在 TScrollBox 中显示滚动条？
【发布时间】：2011-02-09 09:59:35
【问题描述】：

我遇到了一个小问题。我正在动态生成一些控件并将它们放在TScrollbox 组件上。但我注意到，如果滚动框可见，用户可以清楚地看到正在创建和放置的每个控件。所以看起来有很多工作正在完成，而且速度很慢。

我隐藏了滚动框并在其上生成了所有控件，这花费了更少的时间并且没有闪烁等。但这就是问题所在。当我再次显示滚动框时，它的滚动条在我实际调整表单大小之前不会出现。（滚动框的对齐方式为alClient）

关于如何解决这个问题的任何想法？

尝试重新绘制，但没有成功。刷新也没有用。

谢谢

编辑：

TScrollBox(Form1.FindComponent('termai')).Visible:= false;
for I := 0 to mazgas.GrafasPagalVarda(sActiveGrafas).Termai.Count - 1 do
begin
    fNaujasTermas(i,oHook);
end;
TScrollBox(Form1.FindComponent('termai')).Visible := true;

上面的代码显示了我如何隐藏和显示滚动框。
fNaujasTermas 生成一个包含多个轨迹栏、图像和编辑的面板。

我不确定可能会有什么分步说明。只需创建一个过程，它会生成一些带有许多控件的面板并将 ScrollBox 设置为父级。在生成任何内容之前隐藏滚动框并在完成后取消隐藏它。
哦，顺便说一句，面板对齐alTop。因此，每次创建新面板并将其放入滚动框时，它都会出现在顶部，而所有其他面板都会向下移动。

这就是我自己创建滚动框的方式

pTermai := TScrollBox.Create(Self);
pTermai.Parent := pLeft;
pTermai.Align := alClient;
pTermai.Name := 'termai';
pTermai.BorderStyle := bsNone;
pTermai.VertScrollBar.Increment := 40;

EDIT2：我想我知道如何重现这个。
似乎在向滚动框添加新面板时，它不会将其计入该滚动框中已经存在的所有控件的总高度。

所以举个例子。假设 1 个面板的高度为 200 像素。
滚动框高度为 300px。

因此，在创建 2 个总高度为 400 像素的面板后，滚动框不会显示滚动条，即使第二个面板的一半不可见。如果我再添加一个面板 = 总共 600 像素，滚动框将显示滚动条，看起来它只会滚动每 2 个面板，而不是 3 个。当尝试滚动此类窗口时，值会重新计算，并且一切都很好地显示。

所以主要问题是，如何让滚动框“及时”显示滚动条，这样面板就不会被切掉一半？

【问题讨论】：

我无法在 D2009 中重现该问题。

标签： delphi delphi-2009 tscrollbox

【解决方案1】：

您可以通过调用从TWinControl 继承的Realign() 方法来请求滚动框重新计算其滚动条属性。为了最大限度地减少闪烁，您应该在它仍然不可见时执行此操作，如下所示：

ScrollBox.Visible := False;
try
  // create your new panel ...
finally
  ScrollBox.Realign;
  ScrollBox.Visible := True;
end;

【讨论】：

【解决方案2】：

正如我在 cmets 中所说，我无法重现该问题。如果您提供有关如何重现问题的分步说明，将会有所帮助。

但是，如果您说调整表单大小后问题就消失了，为什么不简单地调整表单大小呢？也许您可以尝试使用SetWindowPos 将其大小调整为 0 像素。你也可以试试ScrollBox1.Perform(WM_VSCROLL, SB_PAGEUP, 0);。

【讨论】：