Navegador com Abas

[SrMaster 0]

Opa pessoal, estou criando um navegador com abas, ele está ficando até que bom, só que falta alguams coisas, foto dele:

aba normal: http://a.imagehost.org/0723/abas.png

na outra aba: http://a.imagehost.org/0175/comaba.png

 

estou criando componente por componente dentro da aba nova, usando esse código:

 

procedure CriaNovaAba(Pagina: TPageControl; nomeAba: string; Donos: TCoolBar; Tools: TToolBar; Combo: TComboBox; Button: TToolButton);

var

Aba: TTabSheet;

PageControl1: TPageControl;

ImageList1: TImageList;

begin

Aba:= TTabSheet.Create(Pagina);

Aba.PageControl:=Pagina;

Aba.Caption:=nomeAba;

 

Combo:=TComboBox.create(combo);

Combo.Parent:=donos;

Combo.AutoDropDown:=True;

 

donos:= TCoolBar.create(donos);

donos.Parent := Aba;

donos.Bands.Add;

donos.Bands[0].text:='Endereço: ';

donos.Bands[0].Control:=Combo;

 

Tools:= TToolBar.create(Tools);

Tools.Parent :=Donos;

Tools.Cursor:=crArrow;

Tools.Images:=ImageList1;

Tools.Flat:=True;

Tools.EdgeBorders:=[];

Tools.AutoSize:=true;

Tools.Height:=36;

 

Button:= TToolButton.Create(button);

Button.Parent:=Tools;

Button.Caption:='Voltar';

Button.hint:='Voltar para página anterior';

Button.ShowHint:=True;

Button.ImageIndex:=0;

Button.Width:=37;

Button.Height:=36;

Pagina.ActivePage:=Aba;

end;

alí onde tá em negrito, ele buga a imagem e não aparece, dá um erro de access violation, também fica bugado, não da pra add novo webbrowser, da um erro, tá difícil fazer isso :@

 

Web.Parent:=Aba;

[Error] Principal.pas(142): Cannot assign to a read-only property

 

:@ :@ :@

 

ai tipo eu achei uma source na net, mas o download tava off, pqp :@ kk.

[Chrnos 30]

O erro ocorre porque você está tentando setar em runtime um valor pra uma variável do componente que é somente leitura... ai o delphi acusa o erro e aborta o seu programa...

 

[]'s