| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
amas2 Lt

Registrado: 01 Jun 2004Mensajes: 91
|
Publicado: Mie 06 Abr, 2005 10:34 am Asunto: Borrar TTabSheet |
|
|
Mi problema es el siguiente:
Intento borrar todas las pestañas de un TPageControl.
Mediante este codigo, puedo ver las diferentes pestañas pero a la que intento borrarlas con delete o =NULL el bucle no funciona correctamente, y siempre hay elementos que no borra.
| Código: |
TPageControl* pare_s=static_cast<TPageControl*>(this->FindComponent("PageControl2"));
for(int i=0;i<pare_s->ControlCount;i++)
{
TTabSheet* pest=static_cast<TTabSheet*>(pare_s->Controls[i]);
ShowMessage(pest->Name);
}
|
Como se pueden borrar?
Gracias. |
|
| Volver arriba |
|
 |
_Leo Site Admin

Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
Publicado: Jue 28 Abr, 2005 12:00 am Asunto: |
|
|
Tu código esta bien, el problema esta en que cuando dentro del bucle has borrado el primer TabSheet "...ControlCount" ya no vale lo mismo.
Una forma de hacerlo:
| Código: | PageControl1->ActivePageIndex = 0;
while (PageControl1->ActivePage)
delete PageControl1->ActivePage; |
|
|
| Volver arriba |
|
 |
|