Code: Select all
Dialog>Dialog1
object Dialog1: TForm
Left = 251
Top = -1096
HelpContext = 5000
BorderIcons = [biSystemMenu]
Caption = 'CustomDialog'
ClientHeight = 211
ClientWidth = 476
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
ShowHint = True
OnTaskBar = False
PixelsPerInch = 96
TextHeight = 13
object MSHTMLViewer1: tMSHTMLViewer
Left = 27
Top = 20
Width = 414
TabOrder = 8
BorderStyle = htFocused
DefFontName = 'Times New Roman'
DefPreFontName = 'Courier New'
HistoryMaxCount = 0
NoSelect = False
PrintMarginBottom = 2.000000000000000000
PrintMarginLeft = 2.000000000000000000
PrintMarginRight = 2.000000000000000000
PrintMarginTop = 2.000000000000000000
PrintScale = 1.000000000000000000
end
end
EndDialog>Dialog1
SetDialogProperty>Dialog1,MSHTMLViewer1,HTML,<b>test</b>
Show>Dialog1
Wait>1
GetDialogProperty>Dialog1,MSHTMLViewer1,HTML,TEMP_html
MDL>TEMP_html