TRibbon - неверная реакция кнопки

[Sergio_O]

В общем есть риббон и есть попап. При вызове действия добавляется элемент TreeView, ему передается фокус и вызывается EditText.
Дальнейшие действия определяются событиями Edited и CancelEdit
Из менюшки все работает наура, а вот при использовании Ribbon после вызова Action сразу вызывается CancelEdit, как будто мы тыкнули в произвольном месте и отменили редактирование. Как победить?

К примеру:

{Типовая подготовка к добавлению/редактированию, где и передается фокус}
procedure TDirectStudentsForm.PrepareAdding(tmpNode: TTreeNode);
begin
  tmpNode := HandBooks.Items.AddChild(tmpNode, 'Введите значение');
  tmpNode.Selected := True;
  tmpNode.EditText;
  HandBooks.SetFocus;
  ActiveDS.DataSet.Insert;
end;

procedure TDirectStudentsForm.PrepareEditing(tmpNode: TTreeNode);
begin
  HandBooks.SetFocus;
  tmpNode.Selected := True;
  tmpNode.EditText;
  ActiveDS.DataSet.Locate('ID', tmpNode.SelectedIndex, []);
  ActiveDS.DataSet.Edit;
end;

{Собственно действия}
procedure TDirectStudentsForm.acAddInstituteExecute(Sender: TObject);
var tmpNode: TTreeNode;
begin
  case HandBooks.Selected.Level of
    0 : tmpNode:= HandBooks.Selected;
    1 : tmpNode:= HandBooks.Selected.Parent;
    2 : tmpNode:= HandBooks.Selected.Parent.Parent;
    3 : tmpNode:= HandBooks.Selected.Parent.Parent.Parent;
  end;
  ActiveDS := DS_Institutes;
  PrepareAdding(tmpNode);
end;

procedure TDirectStudentsForm.acEditInstituteExecute(Sender: TObject);
var tmpNode: TTreeNode;
begin
  case HandBooks.Selected.Level of
    1 : tmpNode:= HandBooks.Selected;
    2 : tmpNode:= HandBooks.Selected.Parent;
    3 : tmpNode:= HandBooks.Selected.Parent.Parent;
  end;
  ActiveDS:= DS_Institutes;
  PrepareEditing(tmpNode);
end;

{Отмена редактирования}
procedure TDirectStudentsForm.HandBooksCancelEdit(Sender: TObject; Node: TTreeNode);
begin
  ActiveDS.DataSet.Cancel;
  if HandBooks.Selected.Text = 'Введите значение' then
    HandBooks.Selected.Delete;
end;

{Завершение редактирования редактирования}
procedure TDirectStudentsForm.HandBooksEdited(Sender: TObject; Node: TTreeNode;
  var S: string);
begin
  ActiveDS.DataSet.FieldByName('Название').AsString:= S;
  ActiveDS.DataSet.Post;
  Node.SelectedIndex:= ActiveDS.DataSet.FieldByName('ID').AsInteger;
end;

Внешний вид и исходник прилагается

[Sergio_O]

to mihali4, извините, я так понимаю за 'Неверное название темы', созданное ранее. Если с этой темой все в порядке, прошу прошлую (кривую) удалить.
Если же нет, то укажите на мой недочет в оформлении.

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор