Форум: "Основная";
Текущий архив: 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.006 c