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

[doktor255]

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

где тут логика постоянно дергать диск?

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

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

где тут логика постоянно перекидыть парент?

А что, лучше накидать пачку компонентов?

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

а селекшн восстанавливать не надо?

ЗАЧЕМ???

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

вы лучше на ус мотайте а не фыркайте, оно полезней всяко

Увы, не вижу что можно намотать. Кидать компоненты на форму, "не есть умение"

[eval]

человек врятли переключит вкладки более одного раза

это как одна баба сказала.. это вовсе не важно, один не передернет у другого рука устанет, но вы же программист или как? или так и делаете на "авось не будет часто"...

А что, лучше накидать пачку компонентов?

их для того и делали, или вы думаете такие дураки в борландах да и не только, и придумали полную ерунду?

ЗАЧЕМ???

в справку посмотрите на предмет такого свойства у TreeView.

Увы, не вижу что можно намотать

дык никто и не уговаривает, продолжайте ходить неучем

Кидать компоненты на форму, "не есть умение"

а чтож по вашему есть умение?

[doktor255]

Высказался? Флуданул от души, так сказать. Спорить не буду. Понимаю, что пустая трата времени.

[eval]

ой ну усё, я ушел плакать...
а кто делфи ставил и код писал , вон скока времени угробил на никуда нигодное решение?

[Vazilin]

Может ли кто-нибудь сделать так:
Если стоит radiogroup индекс 1, то в дерево 10 класс подгружается lect,а в 11 класс lect2.
Если стоит radiogroup индекс 2, то в дерево 10 класс test, а в 11 test2.

скачать

[doktor255]

Я помогать смысла не вижу, ибо моя помощь только критикуется. eval пусть помогает.

[eval]

тут не просят помощи, просят просто сделать
это во фриланс надо

[Serge_Bliznykov]

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

Может ли кто-нибудь сделать так:
Если стоит radiogroup индекс 1, то в дерево 10 класс подгружается lect,а в 11 класс lect2.
Если стоит radiogroup индекс 2, то в дерево 10 класс test, а в 11 test2.

скачать

попробуйте в Unit1
заменить код процедуры sRadioGroup1 на событии OnClick
и заменить код процедуры sPageControl1 на событии OnChange

на такой:

procedure TMainForm.sRadioGroup1Click(Sender: TObject);
begin
  RxRichEdit1.Lines.Clear;
  Test1.Visible:=False;
  Video1.Visible:=False;
  If sRadioGroup1.ItemIndex = 0 then  begin
    case sPageControl1.TabIndex of
      0:  sTreeView1.LoadFromFile('Data/Lect.txt');
      1:  sTreeView1.LoadFromFile('Data/Lect2.txt');
    end;
    Edit1.Visible:=True;
    Test1.Visible:=False;
  end;
  If sRadioGroup1.ItemIndex = 1 then begin
    case sPageControl1.TabIndex of
      0:  sTreeView1.LoadFromFile('Data/Test.txt');
      1:  sTreeView1.LoadFromFile('Data/Test2.txt');
    end;
    Edit1.Visible:=False;
    Test1.Visible:=True;
  end;
end;

procedure TMainForm.sPageControl1Change(Sender: TObject);
begin
  case sPageControl1.TabIndex of
     0: sTreeView1.Parent := sTabSheet1;
     1: sTreeView1.Parent := sTabSheet2;
  end;
  If sRadioGroup1.ItemIndex = 0 then  begin
    case sPageControl1.TabIndex of
      0:  sTreeView1.LoadFromFile('Data/Lect.txt');
      1:  sTreeView1.LoadFromFile('Data/Lect2.txt');
    end;
    Edit1.Visible:=True;
    Test1.Visible:=False;
  end;
  If sRadioGroup1.ItemIndex = 1 then begin
    case sPageControl1.TabIndex of
      0:  sTreeView1.LoadFromFile('Data/Test.txt');
      1:  sTreeView1.LoadFromFile('Data/Test2.txt');
    end;
    Edit1.Visible:=False;
    Test1.Visible:=True;
  end;
end;

p.s. пишу данный пример, скрепя сердце и скрипя зубами:
я по сути полностью согласен с eval - читать весь файл при каждом событии изменения радиогруппы или страницы - это ужас и кошмар! я бы читал файлы однократно (причём по необходимости)...

[doktor255]

eval Угадай с двух раз, человек, имеющий на этом форуме пять постов, понимает куда ты его послал? Вопрос риторический.

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

читать весь файл при каждом событии изменения радиогруппы или страницы - это ужас и кошмар!

О да. Прочитать 10 килобайт, это непосильная задача для современного HDD. При таком объёме информации безразлично, когда и сколько раз её читать. Но если уж очень хочется, можно выделить массив под файлы, и загружать их единоразово при активации вкладки. Это максимально снизить нагрузку на драгоценный HDD.