准备安装对话框中的自定义消息包装

套 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;