控件自动移位问题

Question

在一个窗体上，如果有许多控件，如果有一个控件被隐藏了，位于其下面的控件要向上移位以免留下难看的空隙，现在想问一下有什么好的办法将它位移位？要一个一个设置坐标吗？有没更好的办法？

Answer 1

var
  i,c:integer;
  
begin
  c:=0;
  for i:=0 to self.ControlCount-1 do
  begin
    if self.Controls[i].Visible then
    begin
       //c:=c+1;
      //self.Controls[i].Left:=c*30;
      //self.Controls[i].Top:=c*20;
    end;
  end;
end;