Как я могу отключить обновление экрана, которое обновляет много элементов управления?

Question

У меня есть форма с 50 или более элементами управления, которые я создаю и добавляю во время выполнения. Я не хочу видеть то, что появляется один за другим; Я бы предпочел отключить рисование / запуск буферизации в начале, а затем увидеть их все сразу.

Кажется, я вспоминал, как делал что-то подобное в BCB около 10 лет назад, но забуду, как.

Answer 1

Я не уверен, есть ли для этого специфичный для Delphi метод, но с помощью Win32 API это делается с помощью сообщения WM_SETREDRAW.

Редактировать: Спасибо Кену Уайту и Сертаку Акьюзу за пример кода ниже.

begin
  // Defer updates
  SendMessage(Handle, WM_SETREDRAW, WPARAM(False), 0);
  try
    // Create all your controls here
  finally
    // Make sure updates are re-enabled
    SendMessage(Handle, WM_SETREDRAW, WPARAM(True), 0);
    // Invalidate;  // Might be required to reflect the changes  
  end;
end;

Answer 2

Я просто держу Visible = False, пока все не будет хорошо и готово.