Delphi中如何让TEdit编辑框控件从右边开始输入数据呢？

如何使编辑框从右边进行录入数据？

首先：

type
  TRightEdit = class(TEdit)

  protected
    procedure CreateParams(var Params:TCreateParams);override;
end;

声明一个全局的变量： edt2 : TRightEdit;

其次：

procedure TRightEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style + ES_RIGHT;
end;

最后：

procedure Tfmainform.FormCreate(Sender: TObject);
begin
  edt2 := TRightEdit.Create(Self);
  with edt2 do
  begin
    Parent := pnl1;
    Text := '0.';
    Align := alTop;
    Enabled := True;
    ReadOnly := False;
    Show;
  end;
end;

这样我们就实现了一个TEdit控件输入数据从右侧进行录入，就像计算器的编辑框一样的效果。