edit和memo控件的居中问题

Question

写一个控件
unit CenterEdit;interfaceuses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls;type
  TCenterEdit = class(TEdit)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  published
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Sample', [TCenterEdit]);
end;{ TCenterEdit }procedure TCenterEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style or ES_CENTER;
end;end.

Answer 1

procedure  CreateParams(var  Params:  TCreateParams);  override
直接重载可不可以？

Answer 2

对于Memo，只要把Alignment属性设为taCenter就可以了