Bilder als Banner im neuem Tab

delphinap · Beiträge: 42

So, habe einen TWebbrowser und hab oben drüber ein paar Werbebanner. Nun will ich das bei klick auf den Banner sich ein neuer Tab öffnet, und die Werbeseite drin angezeiggt wird. habs nur hinbekommen das sich die neue Page im aktuellem Tab öffnet. also die alte page überschreibt ~~

cya
DN

MrSaint · Verfasst: Mo 27.12.04 19:22

Seit wann kann der TWebBrowser Tabs?
Die wirst du glaube ich per Hand realisieren müssen! also mehrere TWebBrowser-Instanzen und die dann auf ne Pagecontrol oder sowas legen!

MrSaint

_________________
"people knew how to write small, efficient programs [...], a skill that has subsequently been lost"
Andrew S. Tanenbaum - Modern Operating Systems

delphinap · Beiträge: 42

Zitat:

Antworten mit Zitat
BeitragVerfasst am: Mo 27.12.04 18:22 Titel:
Seit wann kann der TWebBrowser Tabs?

So ein TabSheet-Browser mein ich

habe bis jetzt:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Image1Click(Sender: TObject);
begin
  (PageControl1.ActivePage.Controls[0] as TWebBrowser).Navigate('HOMEPAGE');
end;

Moderiert von UGrohne: Code- durch Delphi-Tags ersetzt.

MrSaint · Verfasst: Mo 27.12.04 19:37

Also ich kenn die Kompo nicht, aber so wie da saussieht ist das ne einfache PageControl mit eben nem Webbrowser drauf.. so wie ich gesagt hab

Delphi OH hat folgendes geschrieben:

Um zur Entwurfszeit eine neue Registerkarte anzulegen, klicken Sie mit der rechten Maustaste auf das Steuerelement und wählen Neue Seite. Zur Laufzeit fügen Sie neue Seiten ein, indem Sie das Objekt für die Seite anlegen und seine Eigenschaft PageControl setzen:

markieren

Delphi-Quelltext

1:
2:
3:

NewTabSheet = TTabSheet.Create(PageControl1);

NewTabSheet.PageControl := PageControl1;

So kannst du ne neue Page zur Laufzeit anlegen. Dann erzeugst noch nen neuen TWebbrowser zur Laufzeit und gibst dem NewTabSheet als Parent. Dann aktivierst du das neue Register per
PageControl1.ActivePage := NewTabSheet; und dann kannst du mit deinem eigenen Code die Adresse setzen.

MrSaint

P.S.: Sollte so funzen, normalerweise hab ich net so viel mit PageControls zu tun, aber sollte gehn

_________________
"people knew how to write small, efficient programs [...], a skill that has subsequently been lost"
Andrew S. Tanenbaum - Modern Operating Systems

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme