Edit右对齐

 1、在窗体的OnCreate或OnShow 中加入（适合少数Edit右对齐情况）：

SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or Es_right);

2、如经常需要可编写继承控件，只需继承Tedit并重载CreateParams方法即可。

procedure TMyEdit.CreateParams(var Params: TCreateParams);
begin
   inherited;
   Params.Style:=Params.Style or ES_RIGHT;
end;