delphi - 如何获取页面控件上的元素？

Question

我正在使用 Delphi 7。

假设我的表单上有一个页面控件。此页面控件有两个或三个选项卡。每个选项卡上都有一些其他控件，例如标签、编辑等。例如，如何获取代码中编辑的文本属性？

Answer 1

使用它的 ControlCount 遍历标签页的控件和 Controls特性。

for i := 0 to TabSheet.ControlCount-1 do
begin
  if TabSheet.Controls[i] is TEdit then
    ShowMessage(TEdit(TabSheet.Controls[i]).Text);
end;

这将迭代标签表的所有直接子项。如果您需要更深入地迭代 child 的 child 等等，那么您需要递归解决方案。

如果您想在每个标签页中搜索，那么您也需要遍历它们。

for i := 0 to PageControl.PageCount-1 do
  TabSheet := PageControl.Pages[i];
  for j := 0 to TabSheet.ControlCount-1 do
  begin
    if TabSheet.Controls[j] is TEdit then
      ShowMessage(TEdit(TabSheet.Controls[j]).Text);
  end;