TreeView . Text в момент редактирования Ноды.

← →
Fly` © (2002-06-07 13:49) [0]

Уважаемые. Помогите плиз мне изменить редактируемый текст Ноды в момент когда TreeView переходит в состояние редактирования.
То есть у меня есть Node.Text="ффф_12345", и когда пользователь щелкает на Ноду с целью редакции мне надо , чтоб он редактировал поле с текстом "12345".

← →
Digitman © (2002-06-07 13:54) [1]

в событиях OnEditing(), OnEdited() читай и устанавливай (если это требуется) св-во Node.Text редактируемого узла нужным тебе образом

← →
Song © (2002-06-07 13:55) [2]

TTreeView.onEditing

← →
Fly` © (2002-06-07 14:06) [3]

Вобщем нифига - при создании ноды в DisignMode я ставлю ей текст произвольный. И далее такой код не работает как надо.

procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean); begin Node.Text:="EditText"; end;

Да , он меняет Node.Text, это видно по тому , что когда в процессе редактирования я жму ESC , то происходит откат изменений и Text как раз становится "EditText".
И тем не менее редактируемая строка остаётся той, что я вводил в DesignMode... :-(

← →
Fly` © (2002-06-07 14:23) [4]

Нароод, плииз ! Очень надо ! Может я где свойство какое упустил ?
Просто по умолчанию втыкнул компонент на форму ничего не меняя и onEditing прописал - а не работат.. :-(

Да, прикольный был вопрос.. Лови гитару
в uses добавишь CommCtrl

procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode;
var AllowEdit: Boolean);
var S: string;
begin
S:="ПРОБА!";
SendMessage(TreeView_GetEditControl(Node.Handle),WM_SETTEXT, 0, LongInt(S));
end;

Отлично !!! Убедительно благодарю ! :-)

TreeView . Text в момент редактирования Ноды. Найти похожие ветки