Форум: "Основная";
Текущий архив: 2003.12.26;
Скачать: [xml.tar.bz2];

Вниз

программно добавить 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.012 c