有没有办法,将edit中的文字以右边对齐?(10分)

  • 主题发起人 主题发起人 wangxinf2
  • 开始时间 开始时间
W

wangxinf2

Unregistered / Unconfirmed
GUEST, unregistred user!
有没有办法,将edit中的文字以右边对齐,而不是通常的以左边开始的?
即输入的文字靠近右边。
 
继承TEdit,重载CreateParams,修改Param即可。

procedure TEdit_Ex.CreateParams(var Params: TCreateParams);

begin

inherited;

if self.FTextOnRight then Params.Style:=Params.Style or ES_RIGHT;

end;
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=870605
 
多人接受答案了。
 
后退
顶部