FMX/TWebBrowser

TWebBrowser Blank Page 만들기

지병철 2021. 4. 1. 09:03
  • Windows10 에서는
    • var WebBrowser1: TWebBrowser;
    • WebBrowser1.Navigate('about:blank');
  • Android 에서는
    • 빈화면의 html을 만들어 deployment 시킨 후, 앱 실행 중 TWebBrowser 에서 Loading 한다.

 

  • html code
<!DOCTYPE html>
<html lang="en">
<head>
    <meta charset="UTF-8">
    <title>Blank Page</title>
    <link rel="stylesheet" href="css/style.css">
</head>
<body>
</body>
</html>
  • delphi code
procedure TfrmWeb.FormClose(Sender: TObject; var Action: TCloseAction);
var
  fname: string;
begin
  Image1.Bitmap.Assign(nil);
  fname := System.IOUtils.TPath.Combine(System.IOUtils.TPath.GetDocumentsPath, 'blank.html');
  WebBrowser1.Navigate('file://' + fname);
end;