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




Вниз

TreeViev 


well   (2002-01-23 17:04) [0]

Программисты!
Если не трудно, приведите пример использования свойства "Data" в TTreeNode, пожалуйста!



yaJohn   (2002-01-23 17:12) [1]

Node.Data:=Node;
Node.Data:=nil;
Node.Data:=self;
Node.Data:=pointer(pochti vse chto ugodno);
:)))))))))



Rem   (2002-01-23 18:02) [2]

Data - это указатель на любые данные, привязанные к ветке или листу. В приведенном ниже примере при создании формы в TreeView1 создается список всех компонентов, размещенных на форме, с учетом иерархии. При двойном щелчке на элементе дерева связанный с ним элемент меняет свою видимость. Чтобы понять в чем дело, рекомендую разместить на форме несколько панелей с размещенными на них кнопками, другими панелями и т.д.

...

TForm1 = class(TForm)
...
private
procedure BuildTree(ParentNode: TTreeNode; Control: TWinControl);
...
end;

...

procedure TForm1.BuildTree(ParentNode: TTreeNode; Control: TWinControl);
var
i: integer;
Node: TTreeNode;
begin
for i := 0 to Control.ControlCount - 1 do
begin
Node := TreeView1.Items.AddChild(ParentNode, Control.Controls[i].Name);
Node.Data := Control.Controls[i];
if (Control.Controls[i] is TWinControl) then BuildTree(Node, TWinControl(Control.Controls[i]));
end;
end;

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
TControl(TreeView1.Selected.Data).Visible := not TControl(TreeView1.Selected.Data).Visible;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
BuildTree(nil, Self);
end;




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




Наверх





Память: 0.72 MB
Время: 0.023 c
3-18736           avt                   2002-01-09 23:27  2002.02.07  
QReport формат А3


1-18846           vitnt                 2002-01-22 09:39  2002.02.07  
Как сделать подсветку?


3-18755           Rub                   2002-01-11 10:30  2002.02.07  
Как добавить к TDBCtrlGrid-у горизонтальный ScrollBar?


7-18995           Wizard_Ex             2001-10-26 16:10  2002.02.07  
Registry.ReadBinaryData - как изменить ключ


1-18902           cyborg                2002-01-21 21:19  2002.02.07  
Как вывести текст в TImage чтобы фон у него был прозрачный?