Inno Setup - отображать сообщение в отдельном окне, видимом во время установки

Question

Я уже использовал директиву InfoBeforeFile с текстовым файлом "Важное замечание".

Но я бы предпочел, чтобы пользователь мог продолжать читать инструкции во время установки (например, в отдельном окне).

Есть подсказка?

---

Добавлен окончательный результат, еще раз спасибо Мартину Прикрилу

Answer 1

Используйте CreateCustomForm функцию , чтобы создать отдельное окно для вашего сообщения.

[Files]
Source: "important.txt"; Flags: dontcopy;

[Code]

procedure InitializeWizard();
var
  InfoForm: TSetupForm;
  InfoMemo: TRichEditViewer;
begin
  InfoForm := CreateCustomForm;
  Log(IntToStr(WizardForm.Left));
  Log(IntToStr(WizardForm.Width));
  InfoForm.Left := WizardForm.Left + WizardForm.Width; 

  InfoForm.Width := ScaleX(400); 
  InfoForm.Caption := 'Important message';
  InfoForm.Top := WizardForm.Top;
  InfoForm.Height := WizardForm.Height;
  InfoForm.Position := poDesigned;
  InfoForm.Show();

  InfoMemo := TRichEditViewer.Create(InfoForm);
  InfoMemo.Parent := InfoForm;
  InfoMemo.Left := ScaleX(40);
  InfoMemo.Top := ScaleX(40);
  InfoMemo.Width := InfoForm.ClientWidth - 2 * ScaleX(40);
  InfoMemo.Height := InfoForm.ClientHeight - 2 * ScaleX(40);
  InfoMemo.ScrollBars := ssVertical;
  InfoMemo.ReadOnly := ssVertical;
  InfoMemo.WantReturns := ssVertical;
  InfoMemo.WantReturns := False;

  ExtractTemporaryFile('important.txt');
  InfoMemo.Lines.LoadFromFile(ExpandConstant('{tmp}\important.txt'));
end;