求助！怎样使edit的内容从右到左显示？

谢谢！

解决方案 »

  1.   

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

  2.   

    與樓上的道理是一樣的, 不過簡單點procedure TForm1.Button1Click(Sender: TObject);
    begin
    setwindowlong(edit1.handle, GWL_STYLE,
          getwindowlong(edit1.handle, GWL_STYLE)
            and not ES_AUTOHSCROLL or ES_MULTILINE or ES_Right);
    end;
      

  3.   

    我按照aiirii(ari-爱的眼睛) 的方法做怎么不行??
    nhdj(柳柳荷叶清清水) 能不能说清楚点，不太明白。。
      

  4.   

    如果你只是为了显示，那么你可以试一下Tpanel