Dificuldade em criar abas- ME AJUDEM!!!

[brunocamargodeoliveira 0]

Olá pessoal

primeiramente já vou pedindo desculpas

pois não sei se é realmente aki que devo postar minha duvida

Bom

estou desenvolvendo um navegador em delphi

e sou iniciante na area

e estou tentando aprofundar meus conhecimentos

Estou com um problema que minhas abas não estão abrindo

e nao sei oq pode ser

se alguem puder me ajudar eu agradeço

Vlw

 

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls, ComCtrls;

 

type

TForm1 = class(TForm)

Panel1: TPanel;

Web: TWebBrowser;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Edit1: TEdit;

Button5: TButton;

PageControl1: TPageControl;

 

procedure Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure FormClick(Sender: TObject);

 

 

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key = VK_RETURN then

web.Navigate(Edit1.Text);

 

 

end;

 

 

procedure TForm1.Button1Click(Sender: TObject);

 

 

begin

web.GoBack;

 

 

 

 

end;

 

procedure TForm1.Button2Click(Sender: TObject);

 

var

tabsheet: tTabSheet;

web: twebbrowser;

i: integer;

begin

i := PageControl1.PageCount;

tabsheet := TtabSheet.Create(pagecontrol1);

tabsheet.Caption := 'Nova Aba' + inttostr(i + 1);

tabsheet.name := 'TabSheet' + inttostr(i + 1);

tabsheet.PageControl := PageControl1;

pagecontrol1.ActivePage := tabsheet;

 

web := twebbrowser.Create(tabsheet);

twincontrol(web).Name := 'Web' + inttostr(i + 1);

web.Align := alclient;

twincontrol(web).Parent := tabsheet;

end;

 

 

 

 

 

 

procedure TForm1.Button3Click(Sender: TObject);

begin

web.Stop;

 

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

web.Refresh;

 

 

end;

 

 

procedure TForm1.Button5Click(Sender: TObject);

 

var

tabsheet: tTabSheet;

web: twebbrowser;

i: integer;

begin

i := PageControl1.PageCount;

tabsheet := TtabSheet.Create(pagecontrol1);

tabsheet.Caption := 'Nova Aba' + inttostr(i + 1);

tabsheet.name := 'TabSheet' + inttostr(i + 1);

tabsheet.PageControl := PageControl1;

pagecontrol1.ActivePage := tabsheet;

 

web := twebbrowser.Create(tabsheet);

twincontrol(web).Name := 'Web' + inttostr(i + 1);

web.Align := alclient;

twincontrol(web).Parent := tabsheet;

end;

 

 

 

procedure TForm1.FormClick(Sender: TObject);

 

var

tabsheet: tTabSheet;

web: twebbrowser;

i: integer;

begin

i := PageControl1.PageCount;

tabsheet := TtabSheet.Create(pagecontrol1);

tabsheet.Caption := 'Nova Aba' + inttostr(i + 1);

tabsheet.name := 'TabSheet' + inttostr(i + 1);

tabsheet.PageControl := PageControl1;

pagecontrol1.ActivePage := tabsheet;

 

web := twebbrowser.Create(tabsheet);

twincontrol(web).Name := 'Web' + inttostr(i + 1);

web.Align := alclient;

twincontrol(web).Parent := tabsheet;

end;

 

 

 

 

end.