edit简单问题，求助

Question

如何让edit以一条下划线的形式呈现在用户界面上？
如何让edit在输入或显示的时候从右往左？

Answer 1

比较笨的方法,我估计差不多，先设定Edit最大长度，然后填满下划线‘——’，在KeyDown事件最处理从右向左的效果，依次替换Edit后边的下划线即可。有点笨，不知道有没有别的好方法。

Answer 2

object Edit1: TEdit
  BevelEdges = [beBottom]
  BevelInner = bvNone
  BevelKind = bkTile
  BorderStyle = bsNone
  Ctl3D = False
  ParentColor = True
  ParentCtl3D = False
end

Answer 3

如何让edit在输入或显示的时候从右往左？
使用RzEdit

Answer 4

用三方控件最省事。。或者自己从Tedit继承一个类 ,改写createparams方法。
 TRightEdit = Class(TEdit)
  Protected
    procedure CreateParams(var Params: TCreateParams);override;
  End;procedure TRightEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := params.Style + ES_Right; //添加风格即可
end;....

Answer 5

下划线 就用5楼的
设置edit的属性就可以实现