如何将edit里的输入自右向左顺序，就象计算器的显示一样。

Question

属性里有一个可以调，但是我调了后没有用，请指教！

Answer 1

我也想知道，强烈关注！Memo控件有一个Alignment属性可以设置文本对齐方式，但Edit没有

Answer 2

有没有办法将EDIT也能如此输入？

Answer 3

简单的可以利用  Memo替代，把她的WantReturn变成false，
再把大小调整一下，然后就可以当作Edit用了.注意：虽然此时Moemo不能接受回车但是能用粘贴，来赋值多行的内容。

Answer 4

还一个办法就是重写一个TEdit，这个在以前的帖子上探讨过，方法也不难。

Answer 5

加
property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;procedure TNewEdit.SetAlignment(const Value: TAlignment);
begin
  if (FAlignment<>Value) then
  begin
    FAlignment := Value;
    RecreateWnd;
  end;
end;重载CreateParams
procedure CreateParams(var Params: TCreateParams); override;procedure TNewEdit.CreateParams(var Params: TCreateParams);
begin
  case Alignment of
    taLeftJustify:
      Params.Style := Params.Style or LongWord(ES_Left);
    taRightJustify:
      Params.Style := Params.Style or LongWord(ES_Right);
    else
      Params.Style := Params.Style or LongWord(ES_Center);
  end;
end;