Текущий архив: 2003.12.26;
Скачать: CL | DM;

Вниз

программно добавить TabSheet на PageControl   Найти похожие ветки 

← →
AntonVS ©   (2003-12-15 12:06) [0]

Господа, не подкажет ли кто как динамически, программно добавить на PageControl TabSheet

---

← →
Ihor Osov'yak ©   (2003-12-15 12:16) [1]

Примерно так

procedure TBlabla.CreateAddTab;
var
tab: TTabSheet;
begin
tab := TTabSheet.Create(self);
with tab do
begin
Align := alClient;
Caption := " blaBla #" + IntToStr(fIdxWB);
PageControl := PageControlMain;
Visible := true;
end;


PageControlMain.ActivePage := tab;
end;

---

← →
Skier ©   (2003-12-15 12:20) [2]

with tab do
begin
Align := alClient;
Caption := " blaBla #" + IntToStr(fIdxWB);
PageControl := PageControlMain;
Visible := true;
end;

Зачем ?

---

← →
Ihor Osov'yak ©   (2003-12-15 12:56) [3]

хм..

Align := alClient;

Не смотрел на значения по умолчанию, возможно оно и таким есть.. Вероятнее всего..

Visible := true;

То же самое.
Нужно будет посмотреть. Спасибо за замечание.

---

Страницы: 1 вся ветка

Текущий архив: 2003.12.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.021 c