Znów zakładki

Wie ktoś jak zrobić zakładki takie jak są stosowane w edytorze Pajączek
lub w przeglądarce internetowej Opera wiem że ten temat jusz był
ale prubowałem to zrobic i niewiem jak to zrobic ;-| czy może mi to ktoś zrobic (kurcze czemu ciągle muwie zrobic raczej pomóc :-D)
przykład wykorzystania takiego sposobu. [hurra]
mÓj e-mail: [email protected] :-(

Przeciez miales sie programowaniem nie zajmowac.

Nalezy wstawic na forme PageControl i zostawic pusty. Nastepnie przy tworzeniu (dynamicznie) nowej zakladki tworzysz na niej TWebBrowsera. Nastepnie ustawiasz co i jak ma byc i sie cieszysz. :P Odwolujesz sie do WebBrowsera na zakladce tak: TWebBrowser(PageControl.ActivePage.Controls[0]). Uwaga na TTabSheecie musi być tylko jedna kontrolka. Wykorzystalem to w moich programach (http://www.multiedytor.prv.pl - MultiEdytor i IE+). Wklejam kawałek kodu:

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;

TBrowser jest potomkiem TWebBrowsera i jest to ulepszony przeze mnie WebBrowser :P.

Przeciez miales sie programowaniem nie zajmowac.

no tak ale czasami czeba troche programować przy kompie, chociasz że zaczynam tworzyć gry :-D i musze jeszcze skączyć projekty robione w Delphi :p
:d

Nie można być dobrym robiąc tysiace rzeczy na raz, niejako umiesz wszystko i nic, wiec najlepiej sie skupic na tym co lubisz a reszte olac, bo zawsze bedziesz w tyle... wiec jak z tymi grami? bo z oprogramowaniem idzie ci topornie ;P