Hi!
Erstmal: Ich hab einen Browser programmiert und will durch target=_blank's o.ä. öffnende Fenster in meinem eigenen Programm anzeiegn - damit nicht der IE geöffnet wird!
Ich wollte 2 Prozeduren zusammenfügen - und zwar 1. dass sich bei einem neuen Fenster jedesmal ein neuer TabSheet hinzufügt und 2. dass das geöffnete Fenster im Browser angezeigt wird - also in einem NEUEN Browser, in dem erst erstellten TabSheet - und genau das tut nicht!
Hier der 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:
25:
26:
| procedure TFMain.BrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
var
TabSheet : TTabSheet;
Web: TWebbrowser;
begin
TabCount:= TabCount + 1;
TabSheet := TTabSheet.Create(PCWeb);
with TabSheet do
begin
Name:= 'Fenster' + IntToStr(TabCount);
Caption := Name;
PageControl := PCWeb;
end;
Web := TWebbrowser.Create(TabSheet);
ppDisp := Web.DefaultDispatch;
with Web do
begin
Name:= 'test';
end;
end; |
erstmal tut "name" bei Browser nicht (???) und durch "ppDisp := Web.DefaultDispatch;" tut er wohl schon etwas, aber ich sehe keinen 2.Browser - vor allem nicht in der neuen TabSheet....was mache ich falsch?
Moderiert von 
Marc: Code-Tag dur Delphi-Tag ersetzt.
