Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
ВнизTreeView Найти похожие ветки
← →
Новичок (2002-11-14 09:32) [0]Всем привет! Помогите пожалуйста:
Хочу:
1. Нажимаю кнопку - если в TreeView нет узлов, то добавляю главный узел (название Главный).
2. Нажимаю эту же кнопку - если в TreeView выбран главный узел, то добавляю дочерний (название Дочерний).
3. Нажимаю эту же кнопку - если в TreeView выбран дочерний узел, то добавляю поддочерний (название Поддочерний) и т.д.
4. Причём, есть Label, в которой должны отображаться названия узлов, в зависимости от выбора.
Примечание: Названия узлов должны быть произвольными (например задаются а поле Edit). Число узлов - произвольное.
Пример:
Главный
|
--Дочерний
|
--Поддочерний
и т.д.
Заранее благодарен!
← →
Manic Mechanic (2002-11-14 09:59) [1]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
TreeView1: TTreeView;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
//---------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var NewIt: TTreeNode;
begin
NewIt:= TreeView1.Items.AddChild(TreeView1.Selected,"New");
end;
//---------------------------------------------------------------
end.
// "New" - замени на нужное тебе "название"
← →
Song (2002-11-14 10:17) [2]В Вашем примере будет AV если ветка не выделена, а также нету добавления в рут.
Поэтому правильней так:
With TreeView1 Do
IF Assigned(Selected) then Items.AddChild(Selected,"New") else Add(nil,"New");
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c