Wer kann damit was anfangen?
Zitat:
Called when a new window is about to be created.
procedure YourForm.WebBrowser_OnNewWindow2(
Sender: TObject;
var ppDisp: IDispatch;
var Cancel: WordBool);
Where:
ppDisp
Optional - can use to provide a new WebBrowser object to use for the new window. If left unchanged then a new Internet Explorer window will be created.
Cancel
Set true to cancel the new window, False to allow the new window to open.
For example, to open a new new custom browser form:
procedure YourForm.WebBrowser_OnNewWindow2(
Sender: TObject;
var ppDisp: IDispatch;
var Cancel: WordBool);
var
new_form: THarvesterForm;
begin
Application.CreateForm(YourForm,new_form);
new_form.WebBrowser.RegisterAsBrowser := true;
ppDisp := new_form.WebBrowser.Application;
end;
