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;