| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в RUN-TIME добавить новую вкладку в TPageControl? [D6, WinXP]

Volf_555 ©   (2005-09-29 21:37:00) 

Как в RUN-TIME добавить новую вкладку в TPageControl? (Находится на вкладке Win32)

---

Piter   (2005-09-29 22:22:00) [1]

Игорь Шевченко ©   (29.09.05 22:12) [3]

Игорь, вам надо отдохнуть, однозначно :)
Выпить водочки, сходить в баньку, ну не знаем там :) Устроить relax :)

---

Игорь Шевченко   (2005-09-29 22:12:00) [2]

Piter ©   (29.09.05 22:04) [2]

Я полный код приведу, ладно ?

function TDesignerComponentPages.NewPage(
 const APage: String): TDesignerComponentPage;
var
 I : Integer;
 PageControl : TPageControl;
begin
 Result := TDesignerComponentPage.Create;
 //TODO: Не очень хорошее решение. Может, передавать PageControl параметром ?
 PageControl := TfModelSpaceDesigner(FForm).PageControl;
 for I:=0 to Pred(PageControl.PageCount) do
   if PageControl.Pages[I].Caption = APage then begin
     Result.Page := PageControl.Pages[I];
     Exit;
   end;
 //Не нашли подходящей закладки, создаем новую
 Result.Page := TTabSheet.Create(FForm);
 Result.Page.PageControl := PageControl;
 Result.Page.Caption := APage;
end;

---

Piter   (2005-09-29 22:04:00) [3]

Игорь Шевченко ©   (29.09.05 21:44) [1]

почему With не юзаем? :)

---

Игорь Шевченко   (2005-09-29 21:44:00) [4]

procedure TForm1.AddPage (PageControl: TPageControl; ACaption: string);
var
 Page: TTabSheet;
begin
 Page := TTabSheet.Create(Self);
 Page.PageControl := PageControl;
 Page.Caption := ACaption;
end;

---

Наверх