“准备安装”对话框中的自定义消息换行

Question

我们为Rubberduck项目提供了一个自定义安装程序，它支持按用户和按计算机安装。选择一个或另一个有一些影响。因此，我们在“准备安装”页面上插入一条自定义消息：

我们还支持4种语言的本地化。这里最大的烦恼是对话框中的文本区域不会换行，这意味着如果我们不插入手动换行符，它将在屏幕外排成一长行，需要使用水平滚动条。

我们希望能够自动换行，这样我们就不必为每个本地化插入手动换行符而烦恼。有没有办法做到这一点？

Answer 1

将WizardForm.ReadyMemo.WordWrap设置为True。您还必须将WizardForm.ReadyMemo.ScrollBars设置为ssVertical，WordWrap才能生效。

procedure InitializeWizard();
begin
  WizardForm.ReadyMemo.ScrollBars := ssVertical;
  WizardForm.ReadyMemo.WordWrap := True;
end;

function UpdateReadyMemo(
  Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo,
  MemoGroupInfo, MemoTasksInfo: String): String;
begin
  Result :=
    'Rubber duck Add-In will be available to all users.' + NewLine + NewLine +
    'NOTE: each user individually must register the Rubberduck Add-In ' +
      'as this is a per-user setting and cannot be deployed to all users.' + NewLine;
end;