Webbrowser

Delphi

15/05/2006

Como criar webbrowser em tempo de execurção.


Zlink

Zlink

Curtidas 0

Respostas

Zlink

Zlink

15/05/2006

Para criar tabsheet eu faço assim

begin
NewTabSheet := TTabSheet.Create(PageControl1);
NewTabSheet.PageControl := PageControl1;
NumeroTab := NumeroTab +1;
end;

Agora como eu crio um webbrowser dentro de tabsheet que eu acabo de criar.


GOSTEI 0
Zlink

Zlink

15/05/2006

var
NovoTabSheet:TTabSheet;
NovoWebBrowser :TWebBrowser;
begin
//Crio o tabsheet
NovoTabSheet := TTabSheet.Create(PageControl1);
NovoTabSheet.PageControl := PageControl1;
NumeroTab := NumeroTab +1;
NovoTabSheet.Caption:= ´Tab´+inttostr(NumeroTab);
//Crio o webbrowser
NovoWebBrowser := TWebBrowser.Create(Form1);
NumeroWeb := NumeroWeb +1;
TWinControl(NovoWebBrowser).Name := ´Web´+inttostr(NumeroWeb);
TWinControl(NovoWebBrowser).Parent := Form1;
NovoWebBrowser.Align := alClient;
TWinControl(NovoWebBrowser).Parent := TabSheet1;
//wb.Navigate(´http://www.swissdelphicenter.ch´);
end;

Como colocar os webbrowsers criados dentro de cada tabsheet criado
TWinControl(NovoWebBrowser).Parent := ´Tab´+inttostr(NumeroTab);[/b]


GOSTEI 0
Zlink

Zlink

15/05/2006

Consegui resolver.

var
NovoTabSheet:TTabSheet;
NovoWebBrowser :TWebBrowser;
begin
//Cria o tabsheet
NovoTabSheet := TTabSheet.Create(PageControl1);
NovoTabSheet.PageControl := PageControl1;
NumeroTab := NumeroTab +1;
NovoTabSheet.Caption:= ´Tab´+inttostr(NumeroTab);
//Cria o webbrowser
NovoWebBrowser := TWebBrowser.Create(NovoTabSheet);
numerotab := numerotab +1;
TWinControl(NovoWebBrowser).Name := ´Web´+inttostr(numerotab);
TWinControl(NovoWebBrowser).Parent := NovoTabSheet;
NovoWebBrowser.Align := alClient;
end;


GOSTEI 0
POSTAR