Оператор self

[danek130995]

Есть код, который позволяет создавать на форме кнопку, по нажатию на которую создается новая форма с кнопкой. Вот в чем вопрос: В этой программе родителем новосозданной формы является предыдущая форма, или же родителем всех форм является одна форма, самая первая? Self он же указывает на объект, который вызвал данный метод.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure myclick(sender: tobject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);

  private
    { private declarations }
    k:integer;
  public

    property kk:integer read  k write  k;
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

procedure tform1.myclick(sender: tObject);
var myform:tform1;
begin
randomize;
myform:=tform1.create(self);
with myform do begin
left:=random(50);
end;
myform.show;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var Btn:TButton;
begin
inc(k); self.caption:=inttostr(kk);
Btn:=TButton.Create(self);
Btn.Parent:=self;
Btn.left:=x; Btn.Top:=y;
Btn.Width:=Btn.width+50;
Btn.Caption:=Format ('Кнопка в %d,%d',[x,y]);
Btn.onclick:=@myclick;
end;

{$R *.lfm}

end.

[Аватар]

Self он же указывает на объект, который вызвал данный метод

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

[danek130995]

т.е. родителем следующей формы является предыдущая?

[Аватар]

Нет, здесь это владелец формы. А родитель не задан
http://www.firststeps.ru/cbuilder/r.php?41

[danek130995]

Спасибо за ценный материал. Т.е. форма является владельцем последующе созданной формы, а при удалении владельца память освобождается автоматически для потомков. А тогда получается, если я создал 5 форм динамически(не считая 6 формы, которая создалась сама при запуске приложения), то если я закрываю 1 форму, то последующие 4 должны закрыться сами по себе, т.к. их владедец закрыт. Но этого не происходит, формы остаются живы. Закрываются они только при закрытии первоначально автоматически запущенной формы. Почему так происходит?

[Аватар]

Закрытие не значит уничтожение. Уничтожение владельца уничтожает и подчиненные. Поставте в OnClose владельца Action:=caFree; и посмотрите результат

[min@y™]

procedure tform1.myclick(Self: tform1; sender: tObject);

видишь суслика?