Hallo zusammen,
ich habe folgendes Problem:
versuche in einem OnNewWindow2 Event eines TWebBrowser ein neues Fenster zu erstellen und die neue Seite dort darzustellen.
Die neue Seite ist ein JavaScript die eine ASP Seite aufruft, nun bekome ich immer ne leeeres Fenster(d.h die ASP Seite wird auf dem neuen Fenster nicht dargestellt).
Mein Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| procedure TForm1.BrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
var
W: TForm;
B: TWebBrowser ;
URL1: String;
begin
W := TForm.Create(nil);
B:= TWebBrowser.Create(nil) ;
B.RegisterAsBrowser:= True ;
Try
TControl(b).Parent:= W;
B.Align:= alClient ;
b.OnNewWindow2 := BrowserNewWindow2;
ppDisp:= w.b.DefaultInterface ;
w.Position:= poScreenCenter ;
B.Navigate(url1);
W.ShowModal
Finally
FreeAndNil(B);
FreeAndNil(W);
End ;
}
end; |
Hab ich irgendwo n'Fehler im code?
