Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TreeView [D6, Win95/98]

Ospa © (2002-12-15 07:14:00)
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;

Севостьянов Игорь (2002-12-16 17:41:00) [1]
OnNodeClick ?
Может автор вопрос - пояснить все же, что конкретно он хочет, чтобы у него происходило ?
Расскажи, что же ты хочешь в итоге получить - тогда и ответ сможешь получить

mrcat (2002-12-15 10:03:00) [2]
а что, собственно, Вы ожидаете увидеть?

Song (2002-12-15 08:59:00) [3]
А почему именно onChange?
Вам же нужно при нажатии на узлы?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »