Текущий архив: 2003.10.23;
Скачать: CL | DM;

Вниз

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

← →
Александр М.   (2003-10-12 18:50) [0]

Как скрыть узел TreeView"а? Т.е, чтобы он был доступен для чтения неких значений, но пользователь его не видел? Заранее спасибо всем.

---

← →
Юрий Федоров ©   (2003-10-12 19:53) [1]

А смысл ?

---

← →
Palladin ©   (2003-10-13 00:23) [2]

Данные больше хранить негде чтоли?

---

← →
KSergey ©   (2003-10-13 07:00) [3]

Не, стандартный TreeView так не умеет.

---

← →
Hooch ©   (2003-10-13 07:12) [4]

VirtualTreeView уммет и скрывать и дизаблить узлы

---

← →
Zergling ©   (2003-10-13 08:20) [5]

У ветки есть такая штучка Data. Может там тебе данные хранить?

---

← →
Vic   (2003-10-13 13:53) [6]

Я делаю так:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls;
type
PTreeObj = ^TTreeObj;
TTreeObj = record
Nam:ShortString;
Cex:ShortString;
Uch:ShortString;
end;

type
TForm1 = class(TForm)
Button1: TButton;
TreeView1: TTreeView;
procedure Button1Click(Sender: TObject);
procedure TreeView1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
TObj:PTreeObj;
begin
// пишу в древо
New(TObj);
TObj.Nam:="11111";
TObj.Cex:="11";
TObj.Uch:="1";
TreeView1.Items.AddObject(nil,TObj.Nam,TObj);
New(TObj);
TObj.Nam:="22222";
TObj.Cex:="22";
TObj.Uch:="2";
TreeView1.Items.AddObject(nil,TObj.Nam,TObj);

end;

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
// читаю
showmessage(PTreeObj(TreeView1.Selected.Data).Nam+#13+
PTreeObj(TreeView1.Selected.Data).Cex+#13+
PTreeObj(TreeView1.Selected.Data).Uch);

end;

end.

Узел так не скроешь, но данные скрыть можно (причем для каждой ветки свои)

---

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

Текущий архив: 2003.10.23;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.015 c