01]显示静态Web页面,用UniURLFrame1的URL属性,不会变形,注意HTML文件相对于Project1.exe的位置
02]UniURLFrame1.Html.text从文件里导入,也可直接输入HTML
01]显示静态Web页面,用UniURLFrame1的URL属性,不会变形,注意HTML文件相对于Project1.exe的位置
02]UniURLFrame1.Html.text从文件里导入
procedure TMainForm.UniFormShow(Sender: TObject); var Html: TStringList; begin Html := TStringList.Create; try Html.LoadFromFile('.\js\jsPlumb\template.html'); Html.text := StringReplace(Html.text, '[var_unigui_jsname]', UniURLFrame1.JSName, [rfReplaceAll, rfIgnoreCase]); UniURLFrame1.Html.text := Utf8Decode(Html.text); finally FreeAndNil(Html); end; end;