richEdit如何实现垂直居中

richEdit 或者是 rxrichedit 如何实现垂直居中?请高手帮忙

解决方案 »

  1.   

    是指一般居中? richedit1.Paragraph.Alignment:= taCenter;
      

  2.   

    是指richedit的高和宽是固定的,输入内容后让其垂直居中.大侠们帮帮我吧.
      

  3.   

    我用rxrichedit实现了一部分功能了.现在主要是垂直居中了,研究了一天了进展不大,老大们帮帮忙,不让贴子沉了,研究出来共享源代码.
      

  4.   

    CSDN的Delphi高手在哪儿呀？帮帮忙了
      

  5.   

    用cxTextEdit控件：  
          edt1.Properties.Alignment.Horz:=taCenter;  
          edt1.Properties.Alignment.Vert:=taVCenter;   
      

  6.   

    cxTextEdit 是不是单行文本呀，能不能实现richedit的效果
      

  7.   

    下面这个方法可以实现。var
      Rect: TRect;
    begin
      RichEdit1.Alignment := taCenter;
      Rect := RichEdit1.ClientRect;
      OffSetRect(Rect, 0, (Rect.Bottom - Canvas.TextHeight(RichEdit1.Lines[0]) * RichEdit1.Lines.Count) div 2);
      SendMessage(RichEdit1.Handle, EM_SETRECT, 0, LParam(@Rect));
    end;
      

  8.   

    上面这个方法的水平居中 实现 可以在对像浏览器中先把 RichEdit1的Alignment 设为 taCenter。
      

  9.   

    SetWindowLong(RichEdit1.Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE);or ES_CENTER);