如何让Edit从右向左显示？?

Question

继承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 1

你就新建一个单元，继承TEdit（名字就是上面的TEdit_Ex）类，然后重载CreateParams，修改Param即可（代码上面都写了）。
然后在你的工程里加入这个单元（uses），动态创建一个TEdit_Ex类型的Edit就行了。
或者，干脆你重新做一个这样的组件算了，从Edit继承，很简单的～～