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

[UFO 007]

Сообщение от Bargest

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

Доброго всем времени суток!
А Вам, автор Bargest - большое человеческое Зер Гроссе Данке Щён:
Image1.Parent:= PageControl1.Pages[0];
Image1.Align:= alClient;
Memo1.Parent:= PageControl1.Pages[1];
Memo1.Align:= alClient;
работает - на "ура" (вот только без alClient-а, особенно с мемо, пришлось помучиться). А мона пару вопрсов в догонку?
"...? мб проще статически. ..." - ет как? мож ОбъектИнспектор\свойства - чавойта проглядел?
и
PageControl1 - точка - выскакивает список применимых к объекту методов и свойств (так - не? Pol'ska). Так вот у меня там TabSheet нету а есть токма Pages - ужоль не древнючая у меня Delphi 7?
Спасибо.

[v1s2222]

Работа с PageControl:

Код:

//можно так:
PageControl1.Pages[1]...
//или так:
TabSheet1...

Но удобнее работать с одним компонентом PageControl, т.к. можно работать со всеми вкладками в цикле, пример:
for i:=0 to PageControl1.PageCount-1 do
  PageControl1.Pages[i]...

[Bargest]

"...? мб проще статически. ..."
Я имел ввиду, что если ты кидаешь Image1 и Memo1 на форму еще на стадии разработки, то можно так же у PageControl создать листы и на них кинуть эти самые компоненты.