Hi,
habe ein Delphiprojekt, wo ich nun schon sehr lange daran verzweifle, dass bei Klick auf Links mit target="_blank" ein neues IE Fenster geöffnet wird, obwohl ich eigentlich die Erstellung eines neuen Objekts wünsche:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure TfrmWebkataloger.WBNewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
ts: TTabSheet;
name:string;
begin
if TWebbrowser(Sender).ReadyState <> READYSTATE_COMPLETE then
begin
ppDisp := nil;
Cancel := True;
end
else
begin
txtWBi.text:=inttostr(strtoint(txtWBi.text)+1);
ts := CreateTabBrowser('', 'WB'+inttostr(strtoint(txtWBi.text)+1),inttostr(strtoint(txtWBi.text)+1));
WaitForBrowser(TWebbrowser(ts.Controls[0]));
ppdisp := (TWebbrowser(ts.Controls[0])).Application;
WaitForBrowser(TWebbrowser(ts.Controls[0]));
ts.Controls[0].Name:=name;
end;
end; |
Wenn ich nur einen Rechtsklick auf den Link mache und dann "in neuem Fenster öffnen" auswähle, klappt es - wie gewünscht - und ein neues Objekt wird erstellt.
Wenn ich aber "einfach so" drauf klicke, geht der Internet Explorer auf :(
Hoffe, dass Ihr mir helfen könnt.
Danke.
Mit freundlichen Grüßen
rabby
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt
