За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Люди, помогите плиз понять TTreeView.
Немогу заставить, при клике на узел, загрузить текстовый файл.
Желательно посмотреть на код.
Заранее всем спасибо.
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
-----Original MessageFrom: "Gift" <Gi***@u*****.ru>
To: "comp.soft.prog.prog" <georgd***@u*****.net> (3808699)
Непонятно слово загрузить?
Может быть открыть в TMemo или др. компоненте,
или открыть FileOpen для чтения и/или записи Fileread FileWrite.
Получить из TTreeView имя файла можно так:
procedure TForm1.TreeView1Click(Sender: TObject);
var
iFileHandle: Integer;
begin
iFileHandle := FileOpen(TreeView1.Selected.Text, fmOpenRead); //Имя файла в
имени узла
end;
Получите бесплатный почтовый ящик @u*****.net на http://freemail.ukr.net
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Здравствуйте, Gift,
Friday, December 19, 2003, 9:53:46 PM, вы писали:
Проблема, как я понял в том, чтобы узнать, на какой узел кликнул?
Для TreeView событие OnClick создать.
В событии можно определить ветку которая выделена:
Node:=MyTree.Selected;
if Node <> nil then
begin
//Ваши действия по работе с файлами
end else
application.messagebox('Нет выделенной ветки!','Warning',0);