Динамическое добавление Tabsheet в TabControl

← →
RazorbladE (2003-06-15 22:42) [0]

Здравствуйте! Пишу приложение - редактор, и возник вопрос при добавлении страниц в TabControl т.е. при открытии нового файла, как в Delphi появляется новая закладка с редактором и другими элементами управления на ней...
Если кто знает, как это реализовать - ответьте (лучше примером).

← →
Song (2003-06-15 23:15) [1]

В TTabControl нет TabSheet"ов. Это как бы псевдостраницы. Т.е. они есть для пользователя, а на самом деле об их переключении и изменении заботится сам программист.
Добавить новую закладку можно через свойство TTabControl.Tabs Оно типа TStrings.

← →
RazorbladE (2003-06-15 23:34) [2]

Пардон... Ошибся PageControl a не Tab Control...

← →
Zergling (2003-06-16 06:39) [3]

Procedure AddNewPage;
var NewTS:TTabSheet;
Begin
NewTS:=TTabSheet.Create(Edit_FC);
with NewTS do
Begin
PageControl:=TPageControl(Edit_FC.PageProject);
Name:="TS"+IntToStr(CountPage);
Caption:="Новая страница";
End;
End;

← →
Forester (2003-06-16 08:26) [4]

>> Zergling ©
А что будет с памятью, занятой переменной NewTS, когда она выйдет из области видимости (по окончании процедуры)? Она окажется свободна для записи.

← →
Song (2003-06-16 08:50) [5]

Это с какой травы интересно она будет доступна для записи?

← →
Skier (2003-06-16 09:01) [6]

>Forester © (16.06.03 08:26)

> А что будет с памятью, занятой переменной NewTS, когда она
> выйдет из области видимости (по окончании процедуры)?

-Память освободится вместе с освобождением TPageControl-а
-NewTS будет вообще недоступна вне AddNewPage;

Динамическое добавление Tabsheet в TabControl Найти похожие ветки