Уничтожение фрейма из него самого.

[Son]

Здравствуйте. У меня скорее вопрос, а не проблема. Пишу в Lazarus, но думаю с Delphi это имеет одни корни. Сдеал фрейм который служит в основной программе настройками для поля (не суть важно). Важно то, что экземпляров фрейма может быть несколько. Поэтому надо было предусмотреть возможность уничтожения фрейма. Сделал в лоб, а именно, кинул на фрейм кнопочку и написал:

procedure TFrame1.btCloseClick(Sender: TObject);
begin
  Free;
end;

Думал будет ошибка, но все работает. Еще пробовал динамически создавать фрейм и кнопочку на нем, которая уничтожает фрейм.

var i : integer;
procedure TForm1.Button1Click(Sender: TObject);
var newBT : TButton;
    fm : TFrame1;
begin
  fm:=TFrame1.Create(Form1);
  fm.Align:=alTop;
  fm.Name:='Frame1'+inttostr(i);
  fm.Tag:=i;
  fm.Parent:=Form1;
  newBT:=TButton.Create(fm);
  newBT.Anchors:=[akRight, akTop];
  newBT.Tag:=i;
  newBT.Name:='CloseButton'+inttostr(i);
  newBT.Parent:=fm;
  newBT.OnClick:=@ButtonCloseClick;
  i:=i+1;
end;

procedure TForm1.ButtonCloseClick(Sender: TObject);
begin
  FindChildControl('Frame1'+inttostr((Sender as TButton).Tag)).Free;
end;

И это тоже работает. Вопрос собственно такой: почему и как это работает? Как объект может уничтожить сам себя? Очень хочется понять и разобраться. Помогите пожалуйста.

[Streletz]

Вызывается метод Free. Он и уничтожает объект.
Подробнее: Деструктор и Free.

[Son]

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

Вызывается метод Free. Он и уничтожает объект.
Подробнее: Деструктор и Free.

Объект может вызвать Free для себя в своем же методе?

[Streletz]

А почему нет?
Уничтожение формы в собственном методе:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Free;
end;

[Son]

Спасибо! Видимо перемудрил сам себя.

[Аватар]

Уничтожение формы в собственном методе

Так нельзя делать, не только для формы, но и для любого другого объекта. Если и отработало, то повезло - после такого Free продолжает еще отрабатывать код уничтоженного объекта. При этом не всегда везуха будет. Для форм в OnClose - caFree, для модальных есть ModalResult. Для фрейма посылал бы сообщение форме и уже из обработчика сообщения удалял бы фрейм. Хотя для фрейма может и другие предложения будут - как-то не приходилось его удалять из себя

[Stilet]

Вообще не могу понять зачем фрейм уничтожать?

[Son]

Сообщение от Аватар

Уничтожение формы в собственном методе

Так нельзя делать, не только для формы, но и для любого другого объекта. Если и отработало, то повезло - после такого Free продолжает еще отрабатывать код уничтоженного объекта. При этом не всегда везуха будет. Для форм в OnClose - caFree, для модальных есть ModalResult. Для фрейма посылал бы сообщение форме и уже из обработчика сообщения удалял бы фрейм. Хотя для фрейма может и другие предложения будут - как-то не приходилось его удалять из себя

Я понял. Из-за того что только пробовал мне везло с уничтожением фреймов. Сделаю удаление их из формы на которой их создаю.