нужно ли уничтожать динамические объектов типа TButton, TMemo и т.д.?

[Хамяг]

var
  Btn: TButton;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Btn:=TButton.Create(Self);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  Btn.Free;
end;

добрый вечер.
появился у меня такой вопрос: если при создании формы создать объект типа TButton, то нужно ли его уничтожать при уничтожении формы?
форма создаётся 1 раз при запуске программы, после уничтожения формы программа закрывается.
ну и для случая, когда форма создаётся динамически, и не один раз, тоже неплохо бы услышать ответ.

P.S. такой вопрос я решил задать потому что если объекты созданы статически (с помощью "перетащил кнопку на форму"), то их уничтожать не надо, к тому же у конструктора Create есть параметр.

[Аватар]

Так как вы создали не надо (параметр Self метода Create). Когда форма будет уничтожаться, буттон тоже уничтожится.

[Хамяг]

procedure TComponent.DestroyComponents;
var
  Instance: TComponent;
begin
  FreeAndNil(FSortedComponents);
  while FComponents <> nil do
  begin
    Instance := FComponents.Last;
    if (csFreeNotification in Instance.FComponentState)
      or (FComponentState * [csDesigning, csInline] = [csDesigning, csInline]) then
      RemoveComponent(Instance)
    else
      Remove(Instance);
    Instance.Destroy;
  end;
end;

Аватар, и правда, сам уничтожается. спасибо .

[Lesha]

добрый вечер.

появился у меня такой вопрос: если при создании формы создать объект типа TButton, то нужно ли его уничтожать при уничтожении формы?

форма создаётся 1 раз при запуске программы, после уничтожения формы программа закрывается.

ну и для случая, когда форма создаётся динамически, и не один раз, тоже неплохо бы услышать ответ.

P.S. такой вопрос я решил задать потому что если объекты созданы статически (с помощью "перетащил кнопку на форму"), то их уничтожать не надо, к тому же у конструктора Create есть параметр.

различают 3 типа объектов:

1) TObject - не имеет владельца, уничтожается вручную

TObject.Create;
TObject.free;

2) TComponent - имеет владельца, нигде неотображается.
уничтожается сразу после уничтожения своего владельца.

var c: TComponent;
begin
c:=TComponent.Create(ownerComponent);
ownerComponent.Destroy;
c <<- уничтожен

3) TControl - имеет владельца и компонент - контейнерОтображения, где происходит отрисовка

var b1,b2: TButton; // TButton - наследник TControl
begin
b1:=TButton.Create(Form1); // форма - владелец
b1.Parent:=Form1; // место отрисовки - Form1
b2:=TButton.Create(b1); // кнопка b2 принадлежит b1
b2.Parent:=Form1; // место отрисовки - Form1 

b1.Destroy; // уничтожены b2,b1

[Хамяг]

Lesha, я об этом не спрашивал, но всё равно, спасибо, не мне, так другим полезно будет .

[Пепел Феникса]

2) TComponent - имеет владельца, нигде неотображается.

если имеет владельца то не обязательно уничтожать руками.(к низшим по иерархии тоже самое)
но можно уничтожить раньше если надо.