2008年
-
编辑 删除
[代码片]右对齐控件内容(可应用在Edit中)
在输入数字时,经常需要将数字输入右对齐. 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;
