有谁能教我写这个类啊

Question

我想写一个类，继承所有的Tedit，只不过我想对Tedit进行一点初始化。比如ctr3D := false, readonly := true, width := 50........

Answer 1

TMyEdit = class(TEdit)
  constructor Create(Owner: TComponent); override;
end;

Answer 2

我能不能在Class定义的时候就把初始化给做好了啊？你能回答一下这个问题吗。用code的方式

Answer 3

............................
type
    TMyEdit = Class(TEdit)
    private
    { Private declarations }    public
    { Public declarations }
       //构造函数的定义  
       constructor Create(Owner: TComponent); override;
end;
............................//构造函数
constructor TMyEdit.Create(Owner: TComponent);
begin
  inherited Create(Owner);
  width:=400;
  ctl3D := false;
  readonly := true;
end;//动态创建
procedure TForm1.Button4Click(Sender: TObject);
var
  Edt : TmyEdit;
begin
  Edt := TmyEdit.Create(nil);
  Edt.Top  := 100;
  Edt.Left := 100;
  Edt.Parent := form1;
end;

Answer 4

人家 largewang(老王) 告诉你了，在Component中的Create中初始化就OK了，
程序中你也可以在Form的OnCreate，OnShow中进行初始化呀，如果只是简单的设置个ctr3D := false, readonly := true, width := 50........
用不着再做的控件 :(

Answer 5

Delphi没有内联函数，你只能在Create里面初始化你需要的东西

Answer 6

谢谢大哥们，我的MSN是[email protected]