各位先知，我在写一个程序，想自动完成一个局域网b/s结构软件的自动操作，但是登陆进入以后，有一个操作需要弹出一个页面，我在newWindow2中代码如下： fm:TForm; fm:=TForm1.Create(self); ppDisp := fm.WebBrowser1.DefaultInterface; fm.Show; fm.SetFocus; fm窗体能够准确捕捉到并且操作正常。 在弹出窗体错作完成后用系统信息：SendMessage（WM_Close）关闭窗体。 但是当我第二次点击需要弹出页面的的按钮时fm窗体不显示，在newwindow2设置断点程序没有调用这个事件， 后来我将fm定义成全局变量，在mainform的create事件中调用： fm：＝TForm.create(self); newWindow2中使用 ppDisp := fm.WebBrowser1.DefaultInterface; fm.Show; fm.SetFocus; 在fm操作完成后使用fm.visible:=false;但是程序出错，我该怎么办?

fm.visible:=false; 改成 fm.hide; 試試看.

谢谢Mickey的回复。 我试过了，还是那个什么“访问地址错误”。 还有一个问题，我在错作过程中会遇到“登陆系统超时，请重新登陆”提示框，但是不用程序，使用IE时不会出现，能给我一些建议吗？

大致試了一下, 無法複製出您的問題情況. 我用 Win2000 Server, D6 Update 2 RTL 3.

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, Unit2;    type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
      var Cancel: WordBool);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Fm: TForm2;
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin
//  Fm.Hide;
  Fm.Visible := False;
end;    procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  ppDisp :=fm.WebBrowser1.DefaultInterface;
  fm.Show;
  fm.SetFocus;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  webbrowser1.Navigate('C:\Documents and Settings\Administrator\桌面\dum.htm');
  fm := TForm2.Create(self);
end;    end.

dum.htm:
< html>
< SCRIPT LANGUAGE="JScript">
function foo() {
    open('http://www.aidc.com.tw/');}
< /SCRIPT>
< BODY >
Click this page and window.open() is called.
< /BODY>
< /html>    

各位先知，为了把问题说的明白些，我把代码帖出来： 点击“浏览”按钮： WebBrowser1.Navigate('http://10.173.11.1:8080/jtwz/violate/approve.do'); flag:='false'; while (not (flag='ok')) do begin Application.ProcessMessages; end; Document := WebBrowser1.Document as IHTMLDocument2; FormElements := (Document.Forms.Item('myFrm', 0) as IHTMLElement).All as IHTMLElementCollection; for i := 0 to FormElements.Length - 1 do begin FormElem := FormElements.Item(i, 0); if not VarIsEmpty(FormElem) and FormElem.isTextEdit then begin if(FormElem.Value='提交') then FormElem.onclick(); end; end; 在newwindow2中处理如下： procedure TfmVoiceTel.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); var fm:TForm2; begin fm:=TForm2.create(self); fm.WebBrowser1.RegisterAsBrowser:=true; ppDisp := fm.WebBrowser1.DefaultInterface; fm.Show; fm.SetFocus; end; 在Form2中如下： procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin WebBrowser1.OleObject.Document.tbform.xxx.value:='1'; WebBrowser1.OleObject.Document.tbform.yyy.value:='2'; WebBrowser1.OleObject.Document.tbform.submit(); Timer2.Enabled:=true; end; 由于提交后系统有“保存成功”的系统提示，所以向系统发送一个回车键，然后关掉窗口，如下： procedure TForm1.Timer2Timer(Sender: TObject); begin keybd_event(VK_RETURN, 0, 0 ,0); keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP ,0); SendMessage(handle,WM_Close,0,0); Timer2.Enabled:=false; end; 以上代码在系统第一次执行时是正确的，但是当第二次点击“浏览”时Form2不弹出，在newwindow2处设置断点但是拦截不住。 b/s结构的软件的源代码是在点击“提交”时先用window.open('','aaa','')打开一个窗口，然后定义原网页的 form.target='aaa'; form.submit(); 第二次处理方法： 定义fm:TForm2为公用变量，在 在主Form的create事件中创建Form2： fm:=TForm2.create(self); 然后在newwindow2事件中去掉相应部分。 在Form2的Timer2Timer事件中将SendMessage()改为self.hide; 还是不行，还有什么别的办法吗？

问题解决了，谢谢Mickey学兄的帮助。

引言: 问题解决了，谢谢Mickey学兄的帮助。

說實在的, 複製不出您的問題, 當然沒幫上忙< >, 恭喜你解決了問題, 不過能否告知解決辦法, 好讓大家能夠參考.< >

其实也没什么，在发出WM_Close消息后， 系统没有释放Form2的资源，刚开始我调用Form2.Free，但是没有达到效果，后来把Form2.Free改成Self.Free就好了，说来惭愧。

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.