如题

我新建了一应用程序,为实现 文本框 文字的 右对齐,新建一类继承TEDIT.


Type
  TCalc=class(TEdit)
  protected
    procedure CreateParams(var Params:TCreateParams);override;
end;

procedure TCalc.CreateParams(var Params:TCreateParams);
begin
      inherited CreateParams(Params);
     {Params.Style:=Params.Style and not WS_BORDER;}
      Params.Style:=Params.Style{or ES_MULTILINE }or WS_CLIPCHILDREN;
      Params.Style:=Params.Style or ES_RIGHT;
end;

在按钮中创建该类的实例

var 
   te:Tcalc;
begin
   te:=Tcalc.create(form1);
   te.CreateParams(form1);
   te.name:='text';
   te.text:='hello,test';
   te.left:=20;
   te.top:=20;
   te.width:=100;
   te.height:=100;
   te.show;
可是单击按钮,窗体上 没有出现  文本框啊.

大家教教..