webbrowser使用一问:--->>>怎样知道webbrowser被意外free了??---仅有的40分送上!(40分)

  • 主题发起人 主题发起人 stanely
  • 开始时间 开始时间
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;
 
拦消息,如果是WM_CLOSE且Handle为WebBrowser.Handle则不作处理,这样就不能关闭了。
想让webbrowser在panel1: WebBrowser.Parent := Panel1;
 
可是webbrowser不能设置parent属性,我的delphi6就是..不知道为什么
 
接受答案了.
 
TWinControl(webbrowser).parent := panel1;
 
The well reply is nines's
 
后退
顶部