所以，这是我刚刚阅读的讨论: http://www.mail-archive.com/delphi@delphi.org.nz/msg02315.html

BeginUpdate 和 EndUpdate 不是我需要的程序......

覆盖 API 调用？我试图从 ComCtrls 单元获取更新程序代码，但没有找到螺母...

如果其中唯一的文本发生变化，也许您可​​以在这里发布代码来修复状态栏组件的闪烁？我的意思是 - 类似于 TextUpdate 或某种 TCanvas 方法或 PanelsRepaint ...？

闪烁是由这段代码引起的:

Repeat
   BlockRead(Fp, BuffArrayDebug[LineIndex], DataCapac, TestByteBuff); // DataCapac = SizeOf(DWORD)
   ProgressBar1.StepIt;
   if RAWFastMode.Checked then begin       // checks for fast mode and modifyies progressbar
    if BuffArrayDebug[LineIndex] = 0 then begin ProgressBar2.Max := FileSize(Fp) - DataCapac; ProgressBar2.Position := (LineIndex + 1) * DataCapac; LineDecr := True; end;
   end else begin ProgressBar2.Max := FileSize(Fp); ProgressBar2.Position := LineIndex * DataCapac end;
   if PreviewOpn.Caption = '<' then begin  // starts data copying to preview area if expanded
    Memo1.Lines.BeginUpdate;
    if (LineIndex mod DataCapac) > 0 then HexMerge := HexMerge + ByteToHex(BuffArrayDebug[LineIndex]) else
     begin
      Memo1.Lines.Add(HexMerge); HexMerge := '';
     end;
    Memo1.Lines.EndUpdate;
   end;
   StatusBar1.Panels[0].Text := 'Line: ' + Format('%.7d',[LineIndex]) + ' | Data: ' + Format('%.3d',[BuffArrayDebug[LineIndex]]) + ' | Time: ' + TimeToStr(Time - TimeVarStart); StatusBar1.Update;
    if FindCMDLineSwitch(ParamStr(1)) then begin
     TrayIcon.BalloonTitle := 'Processing ' + ExtractFileName(RAWOpenDialog.FileName) + ' and reading ...';
     TrayIcon.BalloonHint :=  'Current Line: ' + inttostr(LineIndex) + #10#13 + ' Byte Data: ' + inttostr(TestByteBuff) + #10#13 + ' Hex Data: ' + ByteToHex(TestByteBuff);
     TrayIcon.ShowBalloonHint;
    end;
  Inc(LineIndex);
 Until EOF(Fp);

有什么想法吗？

这个链接有评论(http://www.stevetrefethen.com/blog/UsingTheWSEXCOMPOSITEWindowStyleToEliminateFlickerOnWindowsXP.aspx)，并且有一个程序可以工作(没有任何闪烁)，但它是 VVVVVVVEEEEEERRRRRRRYYYYYY 慢!

 1 type
 2   TMyForm = class(TForm)
 3   protected
 4     procedure CreateParams(var Params: TCreateParams); override;
 5   end;
 6 
 7 ...
 8 
 9 procedure TMyForm.CreateParams(var Params: TCreateParams);
10 begin
11   inherited;
12   // This only works on Windows XP and above
13   if CheckWin32Version(5, 1) then
14     Params.ExStyle := Params.ExStyle or WS_EX_COMPOSITED;
15 end;
16 

此外 - 目标不是表单，而是 StatusBar ...如何将此方法分配给状态栏？

最佳答案

我能给你的最重要的建议是将状态栏更新的数量限制为每秒 10 或 20 次。更多只会导致不必要的闪烁，对用户没有任何好处 - 他们无法快速处理信息。

好的，让开这个:如果你想为状态栏使用 WS_EX_COMPOSITED 扩展样式，你基本上有三个选择:

• 创建一个覆盖 CreateParams() 方法的后代类并将其安装到您的 IDE 中或者(如果您不想将其作为 IDE 中的独立组件)在运行时创建状态栏。

• 在另一个单元创建一个同名的子类TStatusBar，覆盖CreateParams()方法，在ComCtrls<> 到使用状态栏控件的表单单元。这将创建您自己的 TStatusBar 类的实例，而不是 ComCtrls 中的实例。参见 this answer有关该技术的另一个示例，希望它足够清楚。

• 使用普通的 TStatusBar 类并在运行时设置 WS_EX_COMPOSITED 扩展样式。

我更喜欢第三个选项，因为它最容易试验，所以这里是示例代码:

procedure TForm1.FormCreate(Sender: TObject);
var
  SBHandle: HWND;
begin
  // This only works on Windows XP and above
  if CheckWin32Version(5, 1) then begin
    // NOTE: the following call will create all necessary window handles
    SBHandle := StatusBar1.Handle;
    SetWindowLong(SBHandle, GWL_EXSTYLE,
      GetWindowLong(SBHandle, GWL_EXSTYLE) or WS_EX_COMPOSITED);
  end;
end;

编辑:

如果您希望您的代码正确支持最新的 Windows 版本和视觉样式，您甚至不应该考虑自己处理 WM_ERASEBKGND - 通常的技术涉及该方法的空处理程序，并在中绘制背景WM_PAINT 处理程序。这对于像 TStatusBar 这样的标准控件来说并不适用，因为必须在某处 绘制背景。如果您只是跳过 WM_ERASEBKGND 处理程序中的背景绘制，您将需要使用跨越所有状态栏 的所有者绘制的面板，否则根本不会绘制背景，下面的 window 会透进来。此外，自绘面板的代码可能会非常复杂。

同样，更好的做法是理清已发布代码中的困惑，正确地将工作人员与显示代码分开，并将状态栏文本的更新速度降低到合理的水平。超过每秒监视器更新的数量根本没有任何意义，即使这也只对游戏和类似的可视化有意义。

关于windows - 调用 Update 过程时 TStatusBar 闪烁。轻松解决此问题的方法，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/1141544/