tr1Editing method

Applies to
TForm1

Declaration
procedure tr1Editing(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean);

Implementation

procedure TForm1.tr1Editing(Sender: TObject; Node: TTreeNode;
  var AllowEdit: Boolean);
begin try
AllowEdit:=(Node.ImageIndex=9);
except end;End;

HTML generated by Time2HELP
http://www.time2help.com