Размещение TreeView на PageControl

[Vazilin]

В общем в программе(учебник) есть TreeView, туда подгружается дерево из файла lect.txt ( лежит в папке Data), необходимо перекинуть TreeView на PageControl( в котором должны быть 2 вкладки(10 и 11 класс) и чтоб далее на 1 вкладке было дерево из lect.txt , а на 2 вкладке из lect2.txt

скачать

[Streletz]

TreeView может находиться только на той вкладке на которую он помещён.
Поэтому здесь понадобится 2 таких компонента. В первый загружается дерево lect.txt, во второй lect2.txt.

[doktor255]

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

TreeView может находиться только на той вкладке на которую он помещён.

Разве? А как же свойство Parent?

[Streletz]

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

Разве? А как же свойство Parent?

Согласен. Тоже вариант.
Vazilin, можно при перемещении по вкладкам в событии OnChange менять свойство Parent у TreeView. После этого в этом же событии в зависимости от вкладки загружать в TreView дерево из соответствующего файла.
Перед этим TreeView можно поместить на одну из вкладок PageControl, чтобы использовать её в качестве "стартовой".

[doktor255]

Дело было вечером, делать было нечего, со скуки поставил D7 и перебрал проект. Ключевой код.

procedure TMainForm.sPageControl1Change(Sender: TObject);
begin
case sPageControl1.TabIndex of
0: begin
     sTreeView1.Parent := sTabSheet1;
     sTreeView1.LoadFromFile('Data/Lect.txt');
   end;
1: begin
     sTreeView1.Parent := sTabSheet2;
     sTreeView1.LoadFromFile('Data/Test.txt'); //файла Lect2.txt не было в папке проекта, поэтому использовал то что было
   end;  
end;
end;

Ну и чтоб не было вопросов, сам проект. http://rghost.ru/51582980

Streletz Parent работает если что. Собственно как ты описал, так я и сделал.

[Streletz]

Всё правильно. Именно это я и имел в виду.

[phomm]

А зачем пейджконтрол если не пользоваться пейджами ? Проще взять табконтрол, имхо - на нём не нужно будет переключать перента, у него и так "единственная страница", на которой лежат дочерние контролы, а по индексу вкладки грузить разные деревья.

[eval]

и зачем эти пляски с парентом?
выйгрыша чуть менее чем ноль

[doktor255]

Каждый программист по своему интерпретирует наиболее логичное решение, руководствуясь своим опытом. Пора бы это понимать, и не задавать подобных вопросов.

[eval]

вот и помогаем свой опыт проапгрейдить

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