就像windows附件中的计算器中的edit框一样,数字从右边显示,按按钮后,从右边加数字!非常感谢

解决方案 »

  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;
      

  2.   

    fhuibo(Sailor) 的办法,是常用并且很经典的解决问题的办法。你先学懂了再想其他更好的办法吧。
      

  3.   

    to:fhuibo(Sailor)
    那你的代码应该放在哪儿呢?
    前面所说的tedit继承,重载CreateParams,具体应该如何实现呢?