закладки и webbrowser на их
Народ, подскажите. Я программно создаю tabsheet на нем panel, edit,webbrowser
Вот код
procedure TForm1.Edit1Click(Sender: TObject);
begin
if Edit1.Text='Введите адрес' then
Edit1.Text:='http://www.';
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
tabsheet:=ttabsheet.Create(self);
tabsheet.PageIndex:=tabsheet.PageIndex+1;
tabsheet.PageControl:=pagecontrol1;
Panel:=TPanel.Create(self);
Panel.Parent:=tabsheet;
Panel.Align:=alTop;
Panel.Height:=25;
Edit:=TEdit.Create(self);
Edit.Parent:=Panel;
Edit.Left:=0;
Edit.Width:=Width div 2 + 80;
WebBrowser:=TWebBrowser.Create(self);
TWinControl(WebBrowser).Parent := tabsheet;
WebBrowser.Align:=alClient;
end;
Вопрос, а как на активной вкладки из edit в webbrowser.navigate присвоить?
|