如何在运行时同时为Form和组件设置白色？

Question

我需要为我的表单和所有其他组件定义白色，在运行时，最终结果必须是屏幕上的所有区域（由Form表示）也是白色，并且在一段时间之后，表单和组件可以像之前一样回来吗？

我的表单中的所有组件都是：

• 01 TImage （与客户对齐，本例中为我的表格）
• 01 TPanel （在表格上集中）
• 01 TImage （与客户对齐，本例中为我的小组）
• 01 TGauge

布局必须是这样的：

那么，这是怎么回事？

提前感谢。

Answer 1

使用相同大小的无边框形式覆盖客户区，以您的表单为主，f.ex。在你的表格方法

  cover:TForm;
...
  cover := TForm.Create(self);
  cover.Parent := self;
  cover.BorderStyle := bsNone;
  cover.Width := self.ClientWidth;
  cover.Height := self.ClientHeight;
  cover.Left := 0;
  cover.Top := 0;
  cover.Color := clWhite;
  cover.Visible := True;

要再次展示自己的表单，请释放cover表单或将cover.Visible设置为false。