求FORM2从FORM1派生的一些方法。怎么做呢？（不能用模板）难题考考你，高分来奖BCB和delphi都行

Question

简单问题，你先设置好Form1，然后到File-->New-->你的工程名字的TabSheet，里面会有你的Form1的窗体，然后选择那个Inherited，再点击OK，这样就会继承Form1生成一个Form2了！！！！

Answer 1

1、你的Form2动态申请了么？Form2:=TForm2.Create(self);
2、放在Interface下面就行了。
3、强制转换是Form2:=TForm2(Form1);但是是不行，因为TForm2是TForm1的派生类，不能这样转换，Form1:=TForm1(Form2)这样是可以的。
代码：
/////unit2.pas---------------------------------------------
unit Unit2;interface
uses Unit1;type
    TForm2 = class(TForm1)
    end;
var
    Form2:TForm2;implementationend.
/////unit1.pas---------------------------------------------
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
    Form2:=TForm2.Create(self);
    Form2.Caption:='test';
    Form2.Show;
end;end.
////////////////////////////////////