edit窗口不能实现光标右显,该如何解决

edit窗口不能实现光标右显
已经试了这两种方法，但是不行：
1.修改bdmode为bdrighttoleft
2.使用
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_RIGHT);
  Edit1.Invalidate;
end; dephi edit
[解决办法]
看下这个是不是你要的效果：

procedure TForm1.FormCreate(Sender: TObject);
var
  chargerstyle:integer;
begin
  chargerstyle:=GetWindowLong(Edit1.Handle,GWL_STYLE);
  chargerstyle:=chargerstyle and(not ES_LEFT)and(not ES_CENTER)or ES_RIGHT;
  SetWindowLong(Edit1.Handle,GWL_STYLE,chargerstyle);
end;