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.