Einzelnen Beitrag anzeigen

Benutzerbild von ibp
ibp

Registriert seit: 31. Mär 2004
Ort: Frankfurt am Main
1.511 Beiträge
 
Delphi 7 Architect
 
#6

Re: Anzeige von mehreren Instanzen sauber lösen

  Alt 15. Jul 2004, 10:18
so...

Delphi-Quellcode:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  NewWindow: TForm1;
  idx:integer;
begin
  idx:=tabControl1.Tabs.Add('neues Tab');
  NewWindow := TForm1.Create(self);
  NewWindow.Parent:=tabControl1;
  NewWindow.Align:=alclient;
  NewWindow.Tag:=idx;
  NewWindow.Show;
  newwindow.WindowState:=wsnormal;
  ppDisp := NewWindow.Webbrowser1.DefaultDispatch;
end;
.. dann solltest du noch bei TTabControl im onchange ereigis, das jeweilige newwindow sichtbar machen, index des tabs ist der tag!

gruß rené
  Mit Zitat antworten Zitat