Динамическое создание
Динамическое создание
Динамическое создание procedure TForm1.Button1Click(Sender: TObject); var new: TTabSheet; newwb: TWebBrowser; begin new:=TTabSheet.Create(Self); new.Parent:=PageControl1; new.PageControl:=PageControl1; new.Caption:='new'; PageControl1.ActivePage:=new; newwb:=TWebBrowser.Create(new); newwb := TWebBrowser.Create(Self); TWinControl(newwb).Name:= 'NewWebBrowser'; TWinControl(newwb).Parent:= new; newwb.Align := alClient; end;
