delphi 底部panel实现打开窗体显关闭标签

• delphi 底部panel实现打开窗体显关闭标签

  //close form
  procedure TForm_Main.Close_MDI_Child_Form(const aMDIForm: TForm); 
  var i: Integer; aSpeedButton: TSpeedButton; 
  begin 
      aMDIForm.Close;
    for i := 0 to Self.MDIChildCount - 1 do
    begin
      if Self.MDIChildren[i] = aMDIForm then
        TSpeedButton(FindComponent('btn_' + aMDIForm.Name)).Free
      else
      begin
        aSpeedButton := TSpeedButton(FindComponent('btn_' + Self.MDIChildren[i].Name));
        aSpeedButton.Left := 5 + (aSpeedButton.Width + 10) * i;
      end;
    end;
  end;