如何在 Delphi 的表单中获取所有组件（Tlabel，Tedit ...）？

Question

我成功编写了一个运行时事件，当我重新调整表单大小时，它会改变我的 TLabel 的大小

procedure TForm3.pack(Sender: TObject);
begin
    Label1.Font.Size:=Floor(50*(Form3.Width/Screen.Width)*(Form3.Height/Screen.Height));
end; 

现在我想获取表单上所有组件的数组，所以我循环并重新调整它们的大小。

如果有预定义的选项或程序，请提供任何帮助，谢谢告诉我（例如响应式）

谢谢

Answer 1

您可以使用表单的Controls 属性。由于所有控件都继承自TControl，并且TControl 具有Font 属性，因此它非常容易（尽管该属性在TControl 中受到保护，因此您需要一个插入器类）：

type
  TCtrl = class(TControl);

var
  i: Integer;
  NewSize: Integer;
begin
  NewSize := Floor(50*(Form3.Width/Screen.Width)*(Form3.Height/Screen.Height));
  for i := 0 to ControlCount - 1 do
    TCtrl(Controls[i]).Font.Size := NewSize;
end;

请注意，某些控件（例如 TPanel 和 TTabSheet）可以作为其他控件的父级，因此它们将拥有自己的 Controls 列表。您还需要遍历这些内容。