Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];
ВнизВопрос по TTreeViev (TTreeNode) Найти похожие ветки
← →
RoadStar (2002-01-22 13:42) [1]Для того, чтобы получить такой эффект, необходимо сохранять полностью весь компонент TTreeView.
Попробуй такой код:
procedure SaveTreeView;
var stream:TFileStream;
begin
stream := TFileStream.Create("Tree.view", fmCreate);
stream.StoreComponent(tv); // tv-имя компоненты TTreeView
stream.free;
end;
Только не забудь добавить в секцию Initialization код
RegisterClass(TTreeView);
а в в секцию Finalization
UnRegisterClass(TTreeView);
Должно получиться.
P.S. По поводу второго вопроса - у TTreeNode есть свойство Data
(указатель на чё хочешь), попробуй запихнуть туда строчку в виде PChar.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c