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

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

TPageControl [D7]

Subdigger ©   (2005-07-04 18:10:00) 

как в рун айме добавить/удалить страницу

---

Subdigger   (2005-07-04 18:15:00) [1]

спс

---

Ega23   (2005-07-04 18:13:00) [2]

А в хелп посмотреть религия не позволяет?

procedure TForm1.FormCreate(Sender: TObject);

var
 i: Integer;
begin
 with PageControl1 do
   for i := 0 to 9 do
     with TTabSheet.Create(Self) do
     begin
       PageControl := PageControl1;
       Pages[i].TabVisible := (i mod 2 = 0);
       Caption := 'PageIndex: ' +
       IntToStr(Pages[i].PageIndex) + '  TabIndex: ' +
         IntToStr(Pages[i].TabIndex);
     end;
end;

---

Наверх