如何减少 Delphi 中的 PageControl 闪烁？

Question

在 Delphi 2009 中，我发现 PageControl 的闪烁（在调整表单大小期间发生）可以通过将其 DoubleBuffered 属性设置为 true 来减少。

但是，如果我将控件添加到 PageControl 选项卡，无论其 DoubleBuffered 属性设置如何，它们都会闪烁。我还尝试过启用和不启用运行时主题。

Answer 1

将 PageControl 上的组件的 ParentBackground 设置为 False 有很大帮助。然而，这会导致这些面板组件的颜色不同，它们现在都有较暗的背景。也许这个问题可以很容易地解决（不会失去主题支持）。

我还安装了 VCL Fix Pack，它修复了 QC 56252（TPageControl 在活动主题下闪烁很多）。

Answer 2

这远非完美，但您可能想使用它：

  protected
    procedure WMExitSize(var Message: TMessage); message WM_EXITSIZEMOVE;
    procedure WMEnterSize(var Message: TMessage); message WM_ENTERSIZEMOVE;

---

procedure TFormMain.WMEnterSize(var Message: TMessage);
begin
  if Assigned(PageControlView.ActivePage) then
    PageControlView.Align := alNone;
end;

procedure TFormMain.WMExitSize(var Message: TMessage);
begin
  if Assigned(PageControlView.ActivePage) then
    PageControlView.Align := alClient;
end;

这是迄今为止我发现的最好的，并且会减少页面控件的 Windows 更新。虽然它可能不太漂亮，但这是一个意见问题......