如何同时更改控件而不重新绘制每个控件？

Question

例如，我需要在运行时禁用两个按钮。在我禁用第一个按钮后，它变成灰色，第二个按钮也变成灰色。但我不知道如何使重画同时进行！

我需要类似的东西：

1. 冻结表单（禁用重画）
2. 禁用第一个按钮
3. 禁用第二个按钮
4. 启用表单重画

如何实现？

Answer 1

查看 Win32 API WM_SETREDRAW 消息。例如：

SendMessage(Handle, WM_SETREDRAW, False, 0);
Button1.Enabled := False;
Button2.Enabled := False;
SendMessage(Handle, WM_SETREDRAW, True, 0);
InvalidateRect(Handle, nil, True);

Answer 2

在应用程序重新进入消息循环之前，无法处理消息，因此任何修改/更新依赖于消息处理的控制状态的尝试都不会在不“泵送”消息的单个代码序列中起作用。

幸运的是，VCL 控件通常提供一种通过 Update 方法强制重新绘制的方法，而无需等待消息被处理：

Button1.Enabled := False;
Button2.Enabled := False;
Button1.Update;
Button2.Update;

这与禁用表单重新绘制无关。无论如何，在您的应用程序进入消息循环之前，表单不会重新绘制，因此在本身不会导致消息处理的单个过程中禁用表单绘制并重新启用是浪费时间。

这可能不是完全同时重新绘制两个按钮，但是如果不进入多线程 GUI 绘制代码，真正同时绘制两个单独的控件是不可能的，我认为这远远超出了这个问题的范围。然而，以这种方式在两个按钮上调用 Update 将根据您的需要几乎同时生效。

Answer 3

致 Elias551：

LockWindowUpdate 可能不是处理此问题的最佳方法，因为它旨在用于拖放操作，并且在误用时可能会引入微妙的错误。

请参阅 http://blogs.msdn.com/b/ oldnewthing/archive/2007/02/22/1742084.aspx

而是使用 SendMessage(hwnd, WM_SETREDRAW, FALSE, 0)

Answer 4

上述 WM_SETREDRAW 决定不会更新子窗口。

相反，我推荐 RedrawWindow：

RedrawWindow(Handle, nil, 0, RDW_INVALIDATE or RDW_ALLCHILDREN);

Answer 5

这可能会有所帮助：API LockWindowUpdate(Handle: HWND) 将绘图锁定到句柄和子级。

例如：

procedure TForm1.ColorButtons();
begin
  LockWindowUpdate(Self.Handle);
  // Make some stuff
  LockWindowUpdate(0);
end;

一旦锁定的手柄被重置，组件就会被重新绘制