嗨我在delphi中制作一个网络浏览器,所以现在我正在做的是让用户可以随意修改标题,当前的问题是我使用一个复选框来检查用户何时想要使用其中的标题备忘录的问题是,当我第一次使用它时它工作正常,但是当我禁用复选框并尝试使用没有标题的浏览器时,标题仍然处于活动状态并且不应该发生。
用于测试本地的代码页
<? php
$ nav = $ _SERVER ['HTTP_USER_AGENT'];
echo "<h1> Test:". $ nav. "</ h1>";
?>
代码delpi
TForm2.sButton1Click procedure (Sender: TObject);
var
Flags, Headers, targetFrameName, PostData: OleVariant;
Url, Ref: string;
begin
Flags: = '1 ';
TargetFrameName: ='';
PostData: ='';
URL: = sEdit1.Text;
if (sCheckBox1.Checked) then
begin
Headers: = sMemo1.Text;
WebBrowser1.Navigate (URL, Flags, targetFrameName, PostData, Headers);
end
else
begin
Headers: ='';
WebBrowser1.Navigate (URL, Flags, targetFrameName, PostData, Headers);
end;
end;