FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#21
|
||||
|
||||
No hay ningún evento ni otra parte del código que modifique el estado del nodo. Lo que ya me tiene completamente perplejo es que si selecciono ese primer nodo que ponía en la imagen del principio y pulso el botón, quita el estado y no hace nada; sin salir del formulario vuelvo a seleccionar el mismo nodo u otro distinto y pulso el botón y esta vez si ejecuta el código asociado. Cada vez lo entiendo menos.
|
#22
|
||||
|
||||
Después de darle muchas vueltas y hacer un montón de pruebas, esta mañana me ha venido una idea a la cabeza: dado que el VST tiene activadas las casillas de selección, daba la impresión que al empezar a recorrer el árbol se inicializan los nodos. He hecho varias pruebas con el código así:
Código:
Lista->OnInitNode = NULL; // Añadida para que no inicialice los nodos Nodo = Lista->GetFirst(); while (Nodo != NULL) { if (!Lista->HasChildren[Nodo] && Lista->CheckState[Nodo] > csUncheckedPressed) { try { fMenu->Query->Close(); fMenu->Query->ParamByName("PrvIns")->AsString = PrvIns; fMenu->Query->ParamByName("RefInt")->AsString = ((PTreeSelRec)Lista->GetNodeData(Nodo))->RefInt; fMenu->Query->ParamByName("Forma")->AsInteger = ((PTreeSelRec)Lista->GetNodeData(Nodo))->ForPago; fMenu->Query->ParamByName("Junta")->AsInteger = StrToInt(((PTreeSelRec)Lista->GetNodeData(Nodo))->Concepto); fMenu->Query->ExecSQL(); nRecibos += fMenu->Query->RowsAffected; fMenu->Query->Transaction->Commit(); } catch(...) { Screen->Cursor = crArrow; fMenu->Query->Transaction->Rollback(); Application->ProcessMessages(); return; } } Nodo = Lista->GetNext(Nodo); } Lista->OnInitNode = ListaInitNode; // Añadida para restaurar la acción al volver a cargar |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Comportamiento extraño de TVirtualStringTree | Angel.Matilla | C++ Builder | 4 | 08-08-2022 10:33:30 |
Un comportamiento extraño. | TiammatMX | Varios | 5 | 03-09-2013 22:54:07 |
Extraño comportamiento de ADO | r1d2m3 | Conexión con bases de datos | 3 | 12-12-2009 19:08:32 |
Comportamiento extraño del TPageControl | Chris | OOP | 4 | 02-04-2009 21:16:09 |
Extraño comportamiento de Firebird 2.0 | TrUnkS | Firebird e Interbase | 4 | 06-01-2007 23:05:57 |
|