Наследование формы...

[SNUPY]

Мну стыдно признаться, но я до сих пор с этим моментом не дружу... =\ поэтому не судите строго всетаки хочу делать по людски все... =))) И так в чем же собствено проблема??? Дело в том, что я пытаюсь наследовать форму 1 в форму 2 (наверно не корректно выражаюсь).. проще говоря вот код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure SetName(s:String);
    procedure Button1Click(Sender: TObject);
  private
    constructor FormCreate(Sender: TObject); virtual;
  public
    { Public declarations }
  end;

  TForm2 = class(TForm1)
  Btn:TButton;
  procedure btnPress(sender:TObject);
  private
    { Private declarations }
  public
    constructor Create(sender:TObject); reintroduce;
  end;

var
  Form1: TForm1;
  Form2: TForm2;
implementation

{$R *.dfm}

procedure TForm1.SetName(s:String);
begin
  self.Caption:=s;
end;

Constructor TForm2.Create(sender:TObject);
begin
 Inherited FormCreate(self);
 Caption:='sds';
 Btn:=TButton.Create(Self);
 btn.Parent:=Self;
 btn.Width:=100;
 btn.Height:=10;
 Btn.Left:=0;
 Btn.top:=20;
 Btn.OnClick:=btnPress;
end;

procedure TForm2.btnPress(sender:TObject);
begin
  Inherited SetName('sds');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Show;
end;

constructor TForm1.FormCreate(Sender: TObject);
begin
  self.Caption:='ss';
end;

end.

Идея в том, чтобы при создании форма 1 получила заголовок "ss", а from2 в довесок возможностей своего предка (формы1) появилась с кнопкой Btn, при нажатии которой заголовок формы2 менялся.... Наверно мну лузер =\ Заранее спасибо!!!!

[АНК]

И как же у Вас в одном Unit'e живут две разные формы? И файл Unit.DFM у них общий?

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

попробуйте использовать динамическое создание компонентов для форм.
должно получится(без New=>Form)

[alexBlack]

Непонятно, зачем это может понадобиться, но сделать можно:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
     constructor Create(aOwner:TComponent); override;
  end;

  TForm2 = Class(TForm1)
  protected
     procedure btnPress(sender:TObject);
  public
     constructor Create(aOwner:TComponent); override;
  end;

var
  Form1 : TForm1;
  Form2 : TForm2;
implementation

{$R *.dfm}

constructor TForm1.Create(aOwner:TComponent);
begin
   inherited Create(aOwner);
   Caption := 'form1 caption';
end;

constructor TForm2.Create(aOwner:TComponent);
var btn : TButton;
begin
   inherited Create(aOwner);
   Caption := 'new form. press button';
   Btn:=TButton.Create(Self);
   btn.Parent:=Self;
   btn.Width:=100;
   btn.Height:=100;
   Btn.Left:=0;
   Btn.top:=100;
   Btn.OnClick:=btnPress;
end;

procedure TForm2.btnPress(sender:TObject);
begin
   Caption := 'form2 caption';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Form2 := TForm2.Create(nil);
   Form2.Show;
end;

[SNUPY]

ооо заработало =)))).... Спасибо!!!
PS данная задача для меня являеться пробной перед другой, гораздо сложной, где существует порядка 6-и форм схожиш по основным принципам, т.е. их можно представить потомками какого-то класса =)

[SNUPY]

Я чето не вкачу... =\\\ не может у меня создаться StringGrid, точнее не могу задать его Parent =\\:

unit FormsUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids,  Unit10, Menus, Buttons, ExtCtrls, ComCtrls, MyStrGrdUnit;

type
  TMotherForm=class(TForm)
    StringGrid:TStringGrid;
    ToolsGrBox, NoteGrBox: TGroupBox;
    OpenProfileBtn, AddUpStrokeBtn, AddDownStrokeBtn, DeleteStrokeBtn,
      CopyBtn, PasteBtn, SaveBtn, PrintBtn, BackBtn, NextBtn, CloseBtn: TButton;
    NoteScrollBox:TScrollBox;
    procedure FormResize(Sender: TObject);
  public
     constructor Create(aOwner:TComponent); override;
  end;{TMotherForm}

  TDataForm1=class(TMotherForm)
{    StringGrid:TStringGrid;
    ToolsGrBox, NoteGrBox: TGroupBox;
    OpenProfileBtn, AddUpStrokeBtn, AddDownStrokeBtn, DeleteStrokeBtn,
      CopyBtn, PasteBtn, SaveBtn, PrintBtn, BackBtn, NextBtn, CloseBtn: TButton;
    NoteScrollBox:TScrollBox;
    procedure FormResize(Sender: TObject);}
  public
     constructor Create(aOwner:TComponent); override;
  end;{TDataForm1}

implementation

uses DateUtils;

{begin TMotherForm}

constructor TMotherForm.Create(aOwner:TComponent);
begin
  StringGrid:=TStringGrid.Create(Self);
  with StringGrid do
  begin
    StringGrid.Parent:=Self;
    left:=0; Top:=0;
  end; {with StringGrid}

  ToolsGrBox:=TGroupBox.Create(Self);
  ToolsGrBox.Parent:=Self;

  OpenProfileBtn:=TButton.Create(Nil);
  with OpenProfileBtn do
  begin
    Parent:=ToolsGrBox;
    caption:='Îòêðûòü àíêåòó äëÿ çàïèñè';
    Height:=33; Width:=169; left:=8; top:=16;
  end; {with OpenProfileBtn}

  self.OnResize:=FormResize;
end;

procedure TMotherForm.FormResize(Sender: TObject);
begin
  ToolsGrBox.Top:=self.ClientHeight-self.Height-19;
  ToolsGrBox.Width:=self.ClientWidth;
  StringGrid.Width:=self.ClientWidth;
  StringGrid.Height:=self.ClientHeight-StringGrid.Top-ToolsGrBox.Height-19;
//  StatusBar1.Width:=self.ClientWidth;
//  StatusBar1.Left:=0;
//  StatusBar1.Top:=self.ClientHeight-StatusBar1.Height;
//  StatusBar1.Width:=Form2.ClientWidth;
//  GroupBox2.Left:=GroupBox1.Width-GroupBox2.Width-8;
end;

{end TMotherForm}

{begin DataForm1}

constructor  TDataForm1.Create(aOwner:TComponent);
begin
 inherited Create(aOwner);
end;

{end DataForm1}
end.

[SuperVisor]

Все потому, что в примере, который тебе написали в коде

TForm2.Create(aOwner:TComponent);
var btn : TButton;
begin
   inherited Create(aOwner);
   Caption := 'new form. press button';
   Btn:=TButton.Create(Self);

Декларация Self=Form2, а в этом куске кода, который ты написал:

constructor TMotherForm.Create(aOwner:TComponent);
begin
  StringGrid:=TStringGrid.Create(Self);
  with StringGrid do
  begin
    StringGrid.Parent:=Self;
    left:=0; Top:=0;
  end;

Self=TMotherForm.

Что-то мне подсказывает, что ты хотел сделать вот так:

constructor TDataForm1.Create(aOwner:TComponent);
begin
  inherited Create(aOwner);
  StringGrid:=TStringGrid.Create(Self);
  with StringGrid do
  begin
    StringGrid.Parent:=Self;
    left:=0; Top:=0;
  end; {with StringGrid}

  ToolsGrBox:=TGroupBox.Create(Self);
  ToolsGrBox.Parent:=Self;

  OpenProfileBtn:=TButton.Create(Nil);
  with OpenProfileBtn do
  begin
    Parent:=ToolsGrBox;
    caption:='Открыть анкету для записи';
    Height:=33; Width:=169; left:=8; top:=16;
  end; {with OpenProfileBtn}

  self.OnResize:=FormResize;
end;

[SNUPY]

Хммм... но мне хотелось, что бы с MotherForm это наследовалось =)))) , ибо будет грош цена этого извращения, т.к. существует еще 6-ть форм должных подобным образом заполняться =)))))

Стоп... я понял.. =)) я реально туплю =)))