S
stanely
Unregistered / Unconfirmed
GUEST, unregistred user!
有时候当使用者点了js作的"关闭"以后,webbrowser就被free了,但是要想再navigate怎么办呢?
下面是我的代码,但是总是显示webbrowser被free以后不是自动变成nil,怎样处理呢?
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
wb:^twebbrowser;
webbrowser2:twebbrowser;
begin
wb:=nil;
if edit1.text<>'' then
begin
if assigned(webbrowser1) then
begin
showmessage('assigned=true');
wb:=@webbrowser1;
end
else
begin
showmessage('assigned=false');
webbrowser2:=twebbrowser.Create(self);//我想让webbrowser在panel1上,怎样做呢?
wb:=@webbrowser2;
end;
wb^.Navigate(edit1.text);
end;
end;
下面是我的代码,但是总是显示webbrowser被free以后不是自动变成nil,怎样处理呢?
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
wb:^twebbrowser;
webbrowser2:twebbrowser;
begin
wb:=nil;
if edit1.text<>'' then
begin
if assigned(webbrowser1) then
begin
showmessage('assigned=true');
wb:=@webbrowser1;
end
else
begin
showmessage('assigned=false');
webbrowser2:=twebbrowser.Create(self);//我想让webbrowser在panel1上,怎样做呢?
wb:=@webbrowser2;
end;
wb^.Navigate(edit1.text);
end;
end;