TabbedNotebook

[Stilet]

Встречный вопрос: принципиально именно этот компонент использовать?
Не проще ли TPageControl?

[Hausedark]

Я уже запарился с этим)кому несложно исходник бросте) хоть так разберусь у меня просто на форме один компонент TabbedNotebook1 на нём 20 фкладок созданные через "Pages" они по нумерации и ещё 40 созданы кодом

var i:integer;
begin
 for i:=21 to 60 do
  TabbedNotebook1.Pages.Add(IntToStr(i));
end;

и если даже открывать .dfm то там на 20 фкладок кода, писанины будет много... ну на первых 10 у мя просто эдиты и баттоны, а на оставшихся идёт 1 лейбл с одним и тем же текстом) ну вся нажеда на вас) сам разобратся немогу) зарание сенкс)

Не проще ли TPageControl?

я ещё с этим компонентом несталкивался) нуб пока, ща порыскаю)а он чем проще от TabbedNtebook?

[igh0st]

Мил человек, ты скажи, зачем тебе 50 страниц лейблов? Может чего присоветуем.

[Hausedark]

ну мне нужно чтобы небыло доступа к ним без ввода ключа, а как ключ введут эти лейблы поидеи должны уйти и появится новые компоненты) но я пока на лейблах остановился) ну одним словом делфи учу недавно, а по учебникам гянул, ну там всё запущенно, вот ставлю задачи и пытаюсь решить с вашей помошью) хоть немного да запомню со сказанного вами)

[Stilet]

Хм... Вообще честно скажу - не предназначены компоненты для такого...
К тому же повторение такого кол-ва информации - бессмысленное захламление ресурсов

Новая вкладка на PageControl создается так:

var t:TTabSheet;
begin
 t:=TTabSheet.Create(PageControl1);
 t.PageControl:=PageControl1;
 t.Caption:='dsad';
// Создаем новую кнопку
  b:=TButton.Create(t);
  b.Parent:=t;
  b.Caption:='sdasd';
end;

Но учти - это во-первых морочно во-вторых бессмысленно, ибо как ты сказал будет куча дублирующих контролов.

Ты задачу раскрой поболее, уверен я что путь к лучшему есть другой.

[igh0st]

Сообщение от Hausedark

ну мне нужно чтобы небыло доступа к ним без ввода ключа, а как ключ введут эти лейблы поидеи должны уйти и появится новые компоненты)

Можно сделать 2 формы. Лайт версию показываешь всем, а Про - только залогиненым.

[Hausedark]

А можно подобие этого кода в форме написать код для лейбла?

var i:integer;
begin
 for i:=20 to 60 do
  TabbedNotebook1.Pages.Add(IntToStr(i));
end;

Я конечно наверняка незнаю) ну может есть какойнить выход из положения типа

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 for i:=20 to 60 do
  TabbedNotebook1.Pages.Add(IntToStr(i));
  Label4................// и тут незнаю чтонить накалякать
end;

я конечно ошибаюсь) но вдруг чтонить может из подобного получится)) жду продолжение темы=)

Плз ответте сразу на 2 вопроса) тут ещё такое дело с этим кодом в OnCreate после того как его добавил, при открытии программы он открывает её с 60 вкладки, как сделать чтобы открытие было с 1 вкладки?

[Stilet]

Просто не ставь этот код в OnCreate
А поставь его туда, где нужно чтоб добавлялись вкладки

[Hausedark]

Всем огромное спазибо за подсказки) я даже зделал удобнее и быстрее чем хотел)