如何减少Delphi中的页面控制闪烁?

设置 ParentBackground 到 False 对于页面控件上的组件帮助很大。然而,这会导致这些面板组件的颜色不同,它们现在都有一个较暗的背景。也许这可以很容易地修复(而不丢失主题支持)。

我也安装了 VCL Fix Pack 有固定的 QC 56252 (TpageControl在激活主题时闪烁很多)。

这远非完美,但您可能希望使用它:

  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更新。不过,它可能不那么漂亮,但这是一个意见的问题……