edit窗口不能实现光标右显

Question

已经试了这两种方法，但是不行：
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;dephiedit

Answer 1

看下这个是不是你要的效果：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;

Answer 2

我知道了，原来是事件里的onenter没有选中那个formcreate，所以才会出现这种情况，不过还是谢谢你