Webbrowser
Como criar webbrowser em tempo de execurção.
Zlink
Curtidas 0
Respostas
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.
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
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]
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
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;
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