初级问题

Question

edit没有这个属性，你可以重载createparams函数，改变他的风格旗标。

Answer 1

继承TEdit，重载CreateParams，修改Param即可。
procedure TEdit_Ex.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if self.FTextOnRight then Params.Style:=Params.Style or ES_RIGHT;
end;

Answer 2

我写的还不详细吗？？type
  MyEdit = class(TEdit)
  procedure CreateParams (var Params : TCreateParams); override;
  end;
.................procedure MyEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style:=Params.Style or ES_RIGHT;
end;