如何使用RichEditViewer在Inno Setup中将可点击链接添加到自定义页面？

Question

如何在InnoSetup中将可点击链接添加到RichEditViewer，我尝试了此解决方案How to add clickable links to custom Inno Setup WelcomeLabel?

在下面使用此代码：

[Code]

var
Page: TWizardPage;

procedure CreateTheWizardPages;
var
RichViewer1 : TRichEditViewer;
begin
Page := CreateCustomPage(wpReady, 'Custom', 'Page');

  RichViewer1 := TRichEditViewer.Create(Page);
   RichViewer1.Left := 0;
   RichViewer1.Top := 30;
   RichViewer1.width:=400;
   RichViewer1.WordWrap := True;
   RichViewer1.BorderStyle := bsNone;
  RichViewer1.TabStop := False;
  RichViewer1.ReadOnly := True;
   RichViewer1.Parent := Page.Surface;
   RichViewer1.ParentColor := true; 
   RichViewer1.RTFText :=  '{\rtf1 ' +
'{\colortbl ;\red238\green0\blue0;}' +
'Lorem ipsum dolor sit amet ' +
'{\b {\field{\*\fldinst{HYPERLINK "https://www.example.com/" }}' +
'{\fldrslt{\cf1 CLICK_HERE\cf0 }}}} ' +
'consectetur adipiscing elit.}';

end;

procedure InitializeWizard();
begin 
  CreateTheWizardPages;
end;

我在自定义页面上看到了这样的内容：

image

我希望只有一个可点击的链接“ CLICK_HERE”

Answer 1

我已经针对各种版本的Inno Setup编译器测试了代码。

似乎在Ansi版本中不起作用。它适用于Unicode版本。 Unicode版本是使用较新版本的Delphi构建的，这可能是原因。

在任何情况下，您都应switch to Unicode。然后，您应该升级到最新版本的Inno Setup（仅具有Unicode版本）。