可以直接修改类名？

Question

是这样的
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, NumberEdit;type
  TForm1 = class(TForm)
    MyEdit1: TEdit; //注意在这想改为MyEdit1: TEditNum（TeditNum由Tedit继承来的） ,编译出错。
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
end.

Answer 1

type
  TEditNum=class(TEdit)
  ……
  ……
  end;type
      TForm1  =  class(TForm)
          MyEdit1:  TEditNum;  //注意在这想改为MyEdit1:  TEditNum（TeditNum由Tedit继承来的）  ,编译出错。
      private
          {  Private  declarations  }
      public
          {  Public  declarations  }
      end;
  var
      Form1:  TForm1;
  implementation
  {$R  *.DFM}
  end.

Answer 2

type
      TEditNum=class(TEdit)
      ……
      ……
      end;
  
  type
              TForm1    =    class(TForm)
              private
                      MyEdit1:    TEditNum;                          {    Private    declarations    }
              public
                      {    Public    declarations    }
              end;
      var
              Form1:    TForm1;
      implementation
      {$R    *.DFM}
      end.
   在创建窗体时动态建立组件form1.formcreate(sender: Tobject);
begin
  MyEdit1 := TEditNum.Create(Self);
  With MyEdit1 do
  begin
    Parent := Self;
    Left := 100;
    top  := 100;
    Text := '';
  end;    
end;end.  这样应该可以了

Answer 3

taber(旺财，快来吃饭！) 怎样给你分