怎么让文本框中的文字居右对齐？

Question

我在编程时想让文本框中的内容居右对齐但是找不到相对应的属性，而在VB中可以找到一个align的属性，后来听别人讲需要编程解决。有谁能帮忙解决谢了！

Answer 1

继承TEdit，重载CreateParams，修改Param即可。
procedure TEdit_Ex.CreateParams(var Params: TCreateParams);
begin
  inherited;
  if self.FTextOnRight then Params.Style:=Params.Style or ES_RIGHT;
end;

Answer 2

其实用statictext不是很好吗？
它有设置对齐的属性的呀