TreeView

← →
Ospa (2002-12-15 07:14) [0]

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var stt:string;
begin
AssignFile(F1,"RUS.txt");
Reset(F1);

//в rus.txt надоится след.:
//10 20 30 40 50 60 name1
//20 30 40 50 60 70 name2

if Node<>nil then stt:=Node.Text; //в stt помещаю имя выбранного подузла.
//далее, читаю каждую строку из файла и анализирую ее, если строковая переменная org_name равна имени выбранного узла, то
// GroupBox2.Caption:=stt;

//Но почему-то у при нажатии на подузлы, ничего ен происходит.Почему??

while not SeekEoF(F1) do
begin
while not SeekEoLN(F1) do
begin
Readln(F1,st.q1, st.q2, st.q3, st.q4, st.q5, st.q6,st.org_name);
if st.org_name=stt then
GroupBox2.Caption:=stt;

end;
end;
end;

← →
Song © (2002-12-15 08:59) [1]

А почему именно onChange?
Вам же нужно при нажатии на узлы?

← →
mrcat © (2002-12-15 10:03) [2]

а что, собственно, Вы ожидаете увидеть?

OnNodeClick ?
Может автор вопрос - пояснить все же, что конкретно он хочет, чтобы у него происходило ?
Расскажи, что же ты хочешь в итоге получить - тогда и ответ сможешь получить

TreeView Найти похожие ветки