如何获取窗体中某一控件的子控件的名字

Question

我的窗体form中有一个控件PageControl1
PageControl1下面有N个tabsheet
tabsheet下面有N个image控件
如何获取image的name

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for I := 0 to self.ComponentCount - 1 do
  begin
    if (self.Components[i] is TImage) then
    begin
      ShowMessage(TImage(self.Components[i]).Name);
    end;
  end;
end;

Answer 2

      for i:=0 to PageControl1.ControlCount-1 do
      begin
        if (PageControl1.Controls[i] is TTabSheet) then
        VCL := TTabSheet(PageControl1.Controls[i]);
        for j:=0 to VCL.ControlCount-1 do
        begin
          if (VCL.Controls[j] is TPanel) then
          begin
            VCL1 := TPanel(VCL.Controls[j]);
            for k:=0 to VCL1.ControlCount-1 do
            begin