Можно использовать TRichEditViewer
, задав для свойства RFTText
значение UseRichEdit
, равное True.
Попробуйте этот пример
procedure CreateCustomPages;
var
Page : TWizardPage;
rtfHelpText : TRichEditViewer;
s: string;
begin
Page := CreateCustomPage(wpWelcome, 'Custom wizard page controls', 'Bold Demo');
Page.Surface.Align:=alCLient;
s:='{\rtf1\ansi\ansicpg1252\deff0\deflang13322{\fonttbl{\f0\fnil\fcharset0 Tahoma;}}'+
'\viewkind4\uc1\pard\f0\fs16 This is a normal text, \b and this is a bold text\b0\par}';
rtfHelpText := TRichEditViewer.Create(Page);
rtfHelpText.Parent := Page.Surface;
rtfHelpText.Left := 0;
rtfHelpText.Top := 0;
rtfHelpText.Width := Page.SurfaceWidth;
rtfHelpText.Height := Page.SurfaceHeight;
rtfHelpText.Scrollbars := ssVertical;
rtfHelpText.ReadOnly := True;
rtfHelpText.UseRichEdit := True;
rtfHelpText.RTFText := s;
end;
procedure InitializeWizard();
begin
CreateCustomPages();
end;