Наследие Классов.

[Solrainer7]

Уважаемые!
Объясните, ато я что то второй день не могу понять.

Создаю форму в динамике. По событию нажатия кнопки на основной форме.
На создаваемой форме так же динамический размещаю кнопку.
В обработчике события onclick на основной форме, в переменных процедуры обработчика - кнопке задал класс не tbutton, а tobject.

после этого при попытке создания формы с кнопкой создается новая форма, только вместо кнопки на ней висит моя основная форма, которая не активна, но которую можно перемещать (учитывая что новую форму я вызываю через showmodal)

Вопрос: Как это получается?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var myform: TForm;
      but1: TObject;
begin
  application.Createform(tform,myform);
  but1:= Tbutton.Create(myform);
  with but1 do begin
    caption:='ololo';
    parent:= myform;
    end;




  myform.showmodal;
  myform.free;

end;

end.

[Sanprof]

не проверял, но по-моему надо так

procedure TForm1.Button1Click(Sender: TObject);
var 
  myform: TForm;
  but1: TButton;
begin
  myform := TForm.Create(nil);
  try
    but1:= Tbutton.Create(myform);
    but1.caption:='ololo';
    but1.Parent := myform;
    myform.showmodal;
  except
    FreeAndNil(myform);
  end;
    FreeAndNil(myform);
end;

[Solrainer7]

Форму я создал по аналогии с созданием формы в главном файле программы (код ниже) - и оно работает.

А вот с кнопкой - вы правы. Надо писать как вы написали. Только вот мне интересно почему когда я кнопке присваиваю корневой класс по иерархии классов делфи, оно "засасывает" основную форму внутрь вновь созданной.

ЗЫЖ: использую Delphi 7

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Sanprof]

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

procedure TForm1.Button1Click(Sender: TObject);
  var myform: TForm;
      but1: TObject;
begin
  application.Createform(tform,myform);
  but1:= Tbutton.Create(myform);
  with but1 do begin
    caption:='ololo';
    parent:= myform;
    end;
  myform.showmodal;
  myform.free;
end;

также если But1: Tobject; то к ней после Create нужно обращаться так (but1 as TButton).Caption := 'ololo'; и т.п. иначе Caption и Parent в вашем случае не будут отрабатываться.

Код ниже тоже вроде как должен работать при but1: Tobject;

procedure TForm1.Button1Click(Sender: TObject);
var 
  myform: TForm;
  but1: TObject;
begin
  myform := TForm.Create(nil);
  try
    but1:= Tbutton.Create(myform);
    (but1 as TButton).Caption:='ololo';
    (but1 as TButton).Parent := myform;
    myform.showmodal;
  except
    FreeAndNil(myform);
  end;
    FreeAndNil(myform);
end;

[evg_m]

with but1 do begin
    caption:='ololo';
    parent:= myform;//TObject не имеет Parent 
//в результате parent относится к form1
// form1.parent:=myform; что мы и наблюдаем
    end;

P.S.. За что я не люблю with

P.P.S. то же и про caption

конечно можно исправить

with but1 as Tbutton do begin
    caption:='ololo';
    parent:= myform;
    end;

но вероятность недноначности прочтения всегда остается.