//--------------------------------------------------------------------------- void __fastcall TFrm1010::execBtCancelExecute(TObject *Sender) { TTreeNode *Node; TTreeNode *Prew = NULL; if (CadMenu->State == dsInsert) { Node = TreeMenu->Selected; Prew = Node->getPrevSibling(); if(Prew == NULL) { Prew = Node->GetPrev(); } if (Node) { TreeMenu->Items->Delete(Node); } } CadMenu->Cancel(); pWorkEdition->SetWorkEdition(false,true,AppConfig->Colors->Disabled); HabilitarItens(false); ico_index->Color = AppConfig->Colors->Disabled; if (Prew != NULL) { TreeMenu->Selected = Prew; } }