TPageControl
De antemano gracias. Lo unico que quiero hacer es crear en tiempo de ejecucion un TTabSheet identico a uno que ya fue creado en tiempo de diseño.
Muchas Gracias |
Hola.
En primer lugar, bienvenid@ al clubdelphi, el punto de encuentro de los programadores de habla hispana. Te recomiendo una buena lectura de la guia de estilo, utilizar siempre la búsqueda antes de abrir un nuevo hilo en los foros y plantear, en la medida de lo posible, preguntas puntuales sobre temas concretos. Sobre tu pregunta, podes crear el TTabSheet y copiar todas aquellas propiedades que consideres relevantes para que el mismo sea "identico" al que fue creado en tiempo de diseño. Básicamente algo como:
Hasta luego. ;) |
O simplemente usar el método Assign que tienen todos los objetos que descienden de TPersistent...
Saludos... |
No es tan simple.
TPersistent únicamente implementa el mecanismo base para que las clases descendientes se "clonen", pero la implementación en sí debe hacerla cada descendiente. TPersistent.Assign hace esto:
es decir, llama al método AssignTo (lo opuesto, semánticamente hablando) del objeto que se le pasa. Y TPersistent.AssignTo hace esto:
o sea, se limita a lanzar un mensaje de error
En otras palabras, la clase TPersistent únicamente implementa el mecanismo de llamadas a Assign o AssignTo. Las clases descendientes deben redefinir al menos uno de los dos para que la copia pueda hacerse. En el caso de TTabSheet, no hay tal redefinición. // Saludos |
Bueno, la verdad que no sabía que TTabSheet no redefinía el método Assign, la verdad es que lo supuse. De haber sabido, claro que no lo hubiera recomendado...
Entonces siendo así, el método propuesto por jachguate sería lo correcto para este caso... Saludos... |
La franja horaria es GMT +2. Ahora son las 09:46:16. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi