在输入数字时,经常需要将数字输入右对齐. Delphi默认提供的控件却不提供此功能. 这里就提供一个简单的方法设置内容右对齐.[@more@]

procedure RightAlign(AControl: TWinControl);
Var
  l: Longint;
begin
  l:=GetWindowLong(AControl.Handle,GWL_EXSTYLE );
  l := l or WS_EX_RIGHT;

  SetWindowLong(AControl.Handle, GWL_EXSTYLE, l);
  AControl.Refresh;
end;

ITPub博客

[代码片]右对齐控件内容(可应用在Edit中)