动态创建子控件

最新推荐文章于 2020-09-02 17:44:05 发布

seagull327

最新推荐文章于 2020-09-02 17:44:05 发布

阅读量653

点赞数

分类专栏：控件

本文链接：https://blog.csdn.net/haiou327/article/details/8867983

版权

控件专栏收录该内容

20 篇文章 0 订阅

订阅专栏

var
  j, k, i: integer;
  sName: string;
begin
  k := 0;
  for j := 2 to 5 do
    if not Assigned(TScrollBox(FindComponent('s' + inttostr(j)))) then
    begin
      with TScrollBox.Create(Self) do
      begin
        Name := 'S' + IntToStr(j);
        sName := Name;
        Parent := Self;
        k := K + 80;   //BoundsRect := Bounds(aLeft, H, aWidth, aHeigh);
        Left := k;
        Width := 60;
        Top := 80;
        Height := 50;
        Show;
        for I := 1 to 5 do
          with TSpeedButton.Create(Self) do
          begin
            Name := 'B' + InttoStr(I) + IntToStr(j);
            parent := TScrollBox(Self.FindComponent(sName));
            Caption := name;
            Show;
          end;
      end;
    end;
end;