TreeVeiw

[beygul]

Такая проблема возникла! Создал в свойстве Items, компонента TreeVeiw - древо. Теперь нужно чтобы при двойном нажатии на какой нибудь подраздел - выполнялась какая нибудь определённая функция. например в компаненте Label, свойстве Caption - что то менялось... вот...

[Скандербег]

Если проект в Delphi.
На закладке Events, если отметить компонент TTreeView, есть событие OnDblClick. В правой колонке напротив строки щелкаем два раза. В тексте появляется заготовка процедуры, которая будет реагировать на двойное нажатие. В этой процедуре пишем.

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
  if TreeView1.Selected = nil then Exit;
  Label1.Caption := TreeView1.Selected.Text; //как пример
end;

[beygul]

Спасибо разобрался, только вот ещё что! нужно сделать так, чтобы при нажатии на одну ветвь древа - выполнялась какая то одна функция, а при нажатии на другую - другая функция, при нажатии на третью - третья функция... То есть у меня таких функций много... около 50 - и к каждой ветви должна быть своя функция...

[Скандербег]

Знает.

...
implementation

{$R *.dfm}
//функции, которые нужно выполнять.
function Number1 : string;
begin
  result := 'Number1';
end;

function Number2 : string;
begin
  result := 'Number2';
end;
...
//в соответствующий ноуд вставляем ссылку на нужную функцию
procedure TMainForm.FormCreate(Sender: TObject);
var F : function:string;
begin
  F := Number1;
  TreeView1.Items.AddChildObject(nil, 'aaaa', @F);
  F := Number2;
  TreeView1.Items.AddChildObject(nil, 'bbbb', @F);
  ...
end;

procedure TMainForm.TreeView1DblClick(Sender: TObject);
var F : function:string;
begin
  if (TreeView1.Selected <> nil) and (TreeView1.Selected.Data <> nil) then begin
    F := TreeView1.Selected.Data; //присвоение переменной сохраненной функции
    Label3.Caption := F; //вызов функции
  end;  
end;

[beygul]

а можно поподробнее... мне не совсем понятно что для чего писать... я просто пока что нуб в этом деле, и понимаю мало... можно поподробнее пожалуйста?

[Скандербег]

Задача неясна. Как, например, в задаче предполагается заполнять ветки дерева?
И насчет подробностей: какое место непонятно?

[beygul]

задача такова. если выбирается ветка под названием "красный" - то меняется Caption комопнента Label1. Если выбирается ветка под названием "синий" - то меняется Caption компонента Button1. И так далее... тоисть к каждой ветки должна быть своя функция! Вот...

[TaYgA]

beygul, всё очень просто:

  if TreeView.Items.Item[2].Selected=True then  // номер ветки "красный"
  Label1.Caption:=''; 
  if TreeView.Items.Item[3].Selected=True then  // номер ветки "синий"
  Button1.Caption:='';

Всё это прописываешь в процедуре TreeView1DblClick

[beygul]

спасибо! наконец то до меня дошло!!!!!!!