Einzelnen Beitrag anzeigen

Benutzerbild von Muellermilchtrinker
Muellermilchtrinker

Registriert seit: 1. Aug 2009
447 Beiträge
 
Delphi 2009 Professional
 
#1

Tabbedbrowsing Problem - Seite Aufrufen

  Alt 3. Dez 2009, 19:19
Hallo DP,

ich bastel gerade aus Spaß meinen eigenen Browser. Nun habe ich bei den Tabs so meine Probleme.
Ich erstelle mit folgenden Code einen neuen Tab mit Webbrowser.
Delphi-Quellcode:
procedure TForm1.NeuerTab1Click(Sender: TObject);
var WB:TWebbrowser; Tab:TTabsheet;
begin
Tab := TTabsheet.Create(self);
Tab.PageControl := PageControl1;
Tab.Caption := 'Tab ' + IntToStr(PageControl1.PageCount);
Tab.Name := 'TabSheet' + IntToStr(PageControl1.PageCount);
PageControl1.ActivePage := Tab;
WB := TWebbrowser.Create(self);
TControl(WB).Parent := Tab;
TControl(WB).Name := 'Webbrowser' + IntToStr(PageControl1.PageCount);
WB.Visible := true;
WB.Anchors := [akLeft,akTop,akRight,akBottom];
WB.Left := 3;
WB.Top := 3;
WB.Height := Tab.Height - 6;
WB.Width := Tab.Width - 6;
end;
Mein Problem ist nun: Wie sage ich nachher beim Seite aufrufen welchen Webbrowser oder wie ermittle ich den aktuellen Browser im Tab.
Chuck Norris doesn't need backups. He just uploads his files and lets the world mirror them.
  Mit Zitat antworten Zitat