Как удалить компонент в runtime

@sorceress · Регистрация: 10.04.2009

Author24 — интернет-сервис помощи студентам

На форме лежит две кнопки. При нажатии на первую программно создаеться несколько label :

Delphi

for i:=1 to labelcount do 
    With TLabel.Create(tabsheet1) do begin
                                parent:=tabsheet1;
                                caption:='hello'
                                name:='l'+inttostr(i);
                                top:=120;
                                left:=20;
                                visible:=true;                               
    end;

При нажатии на другую они должны удаляться:

Delphi

1
2
3

for i:=1 to labelcount do begin
  if FindComponent('l' + IntToStr(i))<>nil then FindComponent('l' + IntToStr(i)).free;
  end;

Но когда после удаления я нажимаю на первую кнопку выдается ошибка 'Компонент l1 уже существует'. Пробовала заменить free на destroy, но не помогло.

Я попробовола еще один вариант, но он тоже не прошел:

Delphi

for i:=1 to labelcount do begin
l.name:='l'+inttostr(labelcount);
l.free;
end;

В чем тут проблема?

@VERMIN · 24.05.2009, 10:44

Delphi

1
2
3

for i:=1 to labelcount do begin
if tabsheet1.FindComponent('l' + IntToStr(i))<>nil then tabsheet1.FindComponent('l' + IntToStr(i)).free;
end;

	24.05.2009, 10:44

Опции темы