[muxer123]

Здраствуйте.Я еще бы хотел спросить, а как реализовать такую вещь:
Иметься PageControl и при нажатие на любую(запрограмированную мною) кнопку появляеться вкладка.То есть создание новой вкладки при нажатие на кнопку...

[pesi]

вот попробуй

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
pag:ttabsheet;
begin
pag:=TTabSheet.Create(pagecontrol1);
pag.Caption := 'Страница'+inttostr(pagecontrol1.PageCount+1);
pag.Name:='tabsheet'+inttostr(pagecontrol1.PageCount+1);
pag.PageControl := pagecontrol1;
pag.Visible := True;
end;

[muxer123]

Большое спасибо, только забыл спросить что надо дописать что бы внутри вкладок было бы содержимое.Например TWebBrowser

[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;

и почитай про динамическое создание компонентов

[muxer123]

Огромнейшее вам спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[UFO 007]

Сообщение от 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-а: "Фото" и "Заметки"... Внимание: вопрос - как нме расположить на закладках соответсвующие компоненты?
Спасибо

[Bargest]

а точно нужно создавать динамически? мб проще статически.
Если все же надо - то (если Memo и Image уже созданы) надо прописать Parent этих компонентов соответствующим листам TabSheet.