【搞定】邮件窗体右边没有滚动条**

hero419

如附件所示，邮件窗体右边没有滚动条。

如果邮件很长，则无法方便的显示邮件内容，只能通过光标的移动来看邮件。

.                                                                                                                                                                                               .
.                                                                                                                                                                                               .

lixy

新版本貌似没这个问题，会自动换行的。

hero419

不是不会自动换行，是右边没有上下拖动的滚动条。
.                                                                                                                                                                                         .
.                                                                                                                                                                                         .

lixy

业务模型\协同系统\个人事务\邮件库\邮件编辑窗体   

procedure TMAILEDITFORM.CreateTextEdit;
begin
  FTextEdit := TRichEdit.Create(nil);
  ScrollBars:= TScrollstyle.ssBoth;
  with FTextEdit do
  begin
    ScrollBars:= TScrollstyle.ssBoth;  //加上这句
    Parent := pnlEdit;
    Align := TAlign.alClient;
    OnChange := DoTextEditChange;
    ReadOnly := Self.ReadOnly;
  end;
end;

我的版本2918，28系列的没这个源码

hero419

已经OK了，谢谢。