Отчистить ScrollBox

[MyLastHit]

Здравствуйте
Вопрос на повестке: как удалить все обьекты из ScrollBox кодом?
Всего в нем около 300 всяких Image и Label. Как отчистить полностью Скролл бокс от них?
ScrollBox1.clear несуществует....

[DIgorevich]

А они на нем динамически создавались?

[MyLastHit]

Да, динамически. 13 массивов

[DIgorevich]

ну почему бы тебе перебором не удалять элементы массивов?

[MyLastHit]

нудно... ну должна же быть функция отчистки СкроллБокса...

Щас вот подумал, если вообще никак... может просто Destroy а потом Сreate?

[DIgorevich]

м-да... вот держи попробуй:

var
  n : integer;
begin
  with ScrollBox1 do
    repeat
      begin
        n:=ControlCount - 1;
        ScrollBox1.Controls[n].Free;
      end;
    until
      ControlCount - 1<>0;
end;

[MyLastHit]

Спасибо! Но Почему он поочереди удаляет элементы? Мемо-CheckBox-Button... Хотя как раз то что нужно, удаляет Image и Label разом.
Спасибо большое!)

[DIgorevich]

потому, что просто удаляет их по мере нахождения вставь перед циклом ScrollBox1.visible:=false, а после цикла ScrollBox1.visible:=true. И переменную можно убрать:

begin
ScrollBox1.visible:=false
  with ScrollBox1 do
    repeat
      begin
        ScrollBox1.Controls[ControlCount - 1].Free;
      end;
    until
      ControlCount - 1<>0;
ScrollBox1.visible:=true
end;

[Marsel737]

А можно проще:

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
var
  I: integer;
begin
  for I := 0 to ScrollBox1.ComponentCount - 1 do
  begin
    if ScrollBox1.Components[I] <> nil then
      ScrollBox1.Components[I].Free;
  end;
end;

[DIgorevich]

Сообщение от Marsel737

А можно проще:

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
var
  I: integer;
begin
  for I := 0 to ScrollBox1.ComponentCount - 1 do
  begin
    if ScrollBox1.Components[I] <> nil then
      ScrollBox1.Components[I].Free;
  end;
end;

А Вы проверьте . Я тоже так сначала делал, но потом решил пользовать Repeat, т.к. при удалении первого же комонента индексы остальных меняются.