edit组件怎么让光标在右边呀？

Question

怎么让edit组件中的光标在右边呀？

Answer 1

SetWindowLong(Edit.Handle, GWL_STYLE, GetWindowLong(Edit.Handle, GWL_STYLE) or ES_Right);

Answer 2

在turob delphi中只需要设置bidimode属性就行了，可是在delphi 7　中设置同样的属性却不行。奇怪

Answer 3

to liangpei2008(笑青天): ^_^ 以前抄别人的，恰好看见楼主在问...于是 Ctrl + V 一下而已

Answer 4

继承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 5

有form创建时加
  SysLocal.MiddleEast:=True;
再设置edit的bidimode属性就生效了。