webBrowser: kilka pytań

0
  1. zajalem sie teraz przegladarka internetowa. Chcialbym zeby moznabylo wyswietlac kilka stron w jednym oknie.
    uzylbym do tego komponentu PageControl, w którym po uruchomieniu bylaby jedna strona (TabSheet1) z komponentem
    TWebBrowser.

W menu mialbym pozycje: Nowa zakladka, ktora dodawalaby nowy TabSheet z WebBrowserem.
Na pasku narzedzi jest combobox, w ktorym wpisuje adresy.

Pytanie: Jak to zrobic, zeby stworzyc kolejne TabSheety z WebBrowserem po kliknieciu w
pozycję "Nowa zakladka" w menu i po wpisaniu adresu do combo i
nacisnieci Entera wykryc, ktory TabSheet jest aktywny i przypisac do znajdujacego sie na nim WebBrowsera
procedure Navigate?

Staralem sie to jak najprosciej wytlumaczyc, ale nie wiem czy mi sie udalo...

  1. Jak dodać stronę do ulubionych?
  2. Jak wyswietlic zrodlo strony?
0

Dużo porad jest na http://www.torry.net.

Poczytaj o dynamicznym tworzeniu komponentów.

0

moglbys podac dokladny dzial albo link?
bo ja z moim modemem dlugo nie moge pociagnac

0

Tez kiedys robilem taka pseudo przegladarke i dalem se spokuj bo to byla tylko nakladka na IE:)
Chyba ze Ty mowisz o przegladarce ktora robisz od podstaw?

0

Chyba ze Ty mowisz o przegladarce ktora robisz od podstaw?

chyba zglupiales

chce zrobic sobie prosta i wygodna nakladke na wlasne potrzeby i szukam pomocy

0

To jest fragment kodu z mojej nakładki, którą kiedyś robiłem:

Procedure TfrmBrowser.NewBrowser(Const Adres:String;Const Focus:Boolean);
Var Tab:TTabSheet;
B:TBrowser;
Begin
{$IFDEF DetailedDebug}
DebugShow('NewBrowser');
{$ENDIF}
Tab:=TTabSheet.Create(PageControl);
Tab.PageControl:=PageControl;
Tab.Parent:=PageControl;
B:=TBrowser.Create(Tab);
B.Align:=alClient;
B.Visible:=True;
B.Dalej:=False;
B.Wstecz:=False;
B.AutoSize:=False;
TControl(B).Parent:=Tab;
If Focus Then
Begin
PageControl.ActivePage:=Tab;
PageControlChange(Self);
End;
B.RegisterAsBrowser:=True;
{$IFDEF DEBUG}
HookEvents(B);
Inc(LastTag);
B.Tag:=LastTag;
{$ENDIF}
B.OnStatusTextChange:=BrowserStatusTextChange;
B.OnTitleChange:=BrowserTitleChange;
B.OnQuit:=BrowserQuit;
B.OnCommandStateChange:=BrowserCommStateCh;
B.OnProgressChange:=BrowserProgressChange;
B.OnEnter:=cmbAdresExit;
B.OnBeforeNavigate2:=BrowserBeforeNavigate2;
B.OnSetSecureLockIcon:=BrowserSetSecureLockIcon;
B.OnNavigateComplete2:=BrowserNavigateComplete2;
B.Navigate(Adres);
End;

0

dzieki Szymek!!
o to wlasnie mi chodzilo
móglbys jeszcze podac co mam wpisac w onchange pagecontrola?
bo jakos nie moge z tym dojsc ladu

ale jeszcze zostaly 2 pytania

do a_s_f (poniżej):
widze ze nawet nie chce ci sie przeczytac mojego postu i nie kumasz o co mi chodzi

0

Chyba ze Ty mowisz o przegladarce ktora robisz od podstaw?

chyba zglupiales

chce zrobic sobie prosta i wygodna nakladke na wlasne potrzeby i szukam pomocy

Spoko nie denerwuj sie:).
Mozesz zajrzec do gotowcow tam jest przyklad. [cya]

0

czyli nikomu sie niechce dokladnie preczytac mojego postu?

nie znacie tez odpowiedzi na 2 pozostale pytania? ;-|

1 użytkowników online, w tym zalogowanych: 0, gości: 1