Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Набережных С.   (2002-03-10 14:01) [9]

Это?

TreeView.Items[1].Data:=StrAlloc(Length("Мои комментарии")+1);
StrPCopy(TreeView.Items[1].Data,"Мои комментарии");

procedure ...TreeViewChange(...
begin
if TTreeView(sender).Selected <> nil then
Memo.Lines.Text:=PChar(TTreeView(sender).Selected.Data)
else
Memo.Lines.Text:="";
end;

Только не забудь:

StrDispose(TreeView1.Items[1].Data);


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c