Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.25;
Скачать: CL | DM;

Вниз

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

 
_Novichok   (2002-11-14 09:29) [0]

Всем привет! Помогите пожалуйста:
Хочу:
1. Нажимаю кнопку - если в TreeView нет узлов, то добавляю главный узел (название Главный).
2. Нажимаю эту же кнопку - если в TreeView выбран главный узел, то добавляю дочерний (название Дочерний).
3. Нажимаю эту же кнопку - если в TreeView выбран дочерний узел, то добавляю поддочерний (название Поддочерний) и т.д.
4. Причём, есть Label, в которой должны отображаться названия узлов, в зависимости от выбора.
Примечание: Названия узлов должны быть произвольными (например задаются а поле Edit). Число узлов - произвольное.
Пример:

Главный
|
--Дочерний
|
--Поддочерний
и т.д.

Заранее благодарен!


 
stone ©   (2002-11-14 09:32) [1]

не совсем понял в чем вопрос...

если
>4. Причём, есть Label, в которой должны отображаться названия
>узлов, в зависимости от выбора.
>Примечание: Названия узлов должны быть произвольными (например
>задаются а поле Edit). Число узлов - произвольное.

тогда в OnChange пиши Label.Caption := Node.Text;


 
Manic Mechanic ©   (2002-11-14 09:43) [2]

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.

Дальше сам



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

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

Наверх




Память: 0.47 MB
Время: 0.013 c
3-82623
mas_alexey
2002-11-05 11:00
2002.11.25
Interbase


1-82746
Sectey
2002-11-15 11:20
2002.11.25
Организация MDI проектов или меню, толбары в MDI приложениях.


1-82695
MetalFan
2002-11-14 16:29
2002.11.25
Глюк с CHARTOOEMBUFFA


6-82892
HelpMy
2002-09-17 07:11
2002.11.25
Как программно открыть/закрыть доступ к диску (папке)?


3-82673
Карелин Артем
2002-11-04 14:26
2002.11.25
Ветвление в хранимой процедуре. Каким образом?