forms - 如何减少 TForm 上 TImage 的闪烁

Question

我有一个包含几个表单的 Delphi 应用程序。对于每个表单，我都使用 TImage 作为背景，以使其具有与标准表单外观不同的外观。 TImage 与客户端对齐。我遇到的问题是，每次单击按钮打开新表单时，表单都会闪烁。我确实使用

创建表单

frmSomeForm : TmfrSomeForm.create(self);
frmSomeForm.ShowModal;
frmSomeForm.Free;

我尝试在表单的onCreate中使用以下代码

DoubleBuffered := true;

但这似乎并没有解决问题，而且如果我确实使用了 dubbelbuffered 那么它会使我的表单上出现的组框不透明。任何人都可以帮忙吗？

我使用的是Delphi XE2

Answer 1

捕获 WM_ERASEBKG 消息并使其不执行任何操作。下面的代码示例应该可以工作。 Windows 在 WM_PAINT 之前向窗口触发 WM_ERASEBKG 事件，默认行为是使用 clBtnFace(或 clWindow，具体取决于 Windows 版本和/或主题)“清除”表单。通过使 WM_ERAGEBKG 不执行任何操作(在 WM_PAINT 之前)，应该避免闪烁。

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  protected
    procedure WMEraseBkgnd(var Message: TWMEraseBkgnd);
      message WM_ERASEBKGND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
  Message.Result:=0;
end;