Цитата:
|
Сообщение от pesi
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
pag:ttabsheet;
webb:TWebBrowser;
begin
pag:=TTabSheet.Create(self);
pag.Caption := 'Страница'+inttostr(pagecontrol1.PageCount+1);
pag.Name:='tabsheet'+inttostr(pagecontrol1.PageCount+1);
pag.PageControl := pagecontrol1;
pag.Visible := True;
webb:=TWebBrowser.Create(self);
TWinControl(webb).Parent:=pagecontrol1.Pages[pagecontrol1.PageCount-1];
TWinControl(webb).Name:='browse'+inttostr(pagecontrol1.PageCount+1);
webb.Visible := True;
webb.Align:= alClient;
end;
и почитай про динамическое создание компонентов  |
Доброго всем времени суток!
А ежели у меня на форме есть PageControl1, Image1 и Memo, динамически создаю 2 TTabSheet-а: "Фото" и "Заметки"... Внимание: вопрос - как нме расположить на закладках соответсвующие компоненты?
Спасибо