FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
duda al crear un descendiente de tpanel
he creado un nuevo componente descendiente de tpanel.
En el metodo oncreate tengo el siguiente codigo
si inserto un nuevo componente de la clase TMiPanel en un formulario me sigue apareciento el texto por defecto "MiPanel1". El caso es que la siguiente linea en la que cambio el color al panel a rojo si que funciona Alguien sabe porque cuando creo un nuevo panel no aparece sin caption saku2 |
#2
|
||||
|
||||
Aparentemente es porque el diseñador (Designer) de Delphi le da el nombre al componente después de haberlo instanciado y agregado al formulario. Y esto parece estar afectando de paso al propio título (propiedad Caption) del componente.
Echando un vistazo en el código fuente de la VCL (carpeta C:\Archivos de programa\Borland\Delphi7\Source\VCL), parece ser que todo se debe a la forma en que trabaja el método virtual TControl.SetName (ver Controls.pas):
Hay ciertas condiciones que le hacen determinar que el texto del control (en este caso, la propiedad Caption del panel) debe ser igualado al nuevo nombre dado. Afortunadamente es un método virtual, y eso quiere decir que lo puedes redefinir (Override) en tu nuevo componente para evitar que suceda eso cuando no lo desees. Espero te sea de utilidad, no dejes de comentarnos. Al González. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Que componente descendiente de TStringGrid me recomiendan?? | DANY | OOP | 12 | 02-12-2010 23:30:02 |
Editor de columnas en descendiente de TCustomDbEdit | GuerreroDelphi | OOP | 0 | 20-01-2008 06:39:46 |
Descendiente de TCustomDbGrid | GuerreroDelphi | Varios | 4 | 31-12-2007 04:14:15 |
Algún componente Descendiente de dbGrid para enlazar a más de 1 tabla ???? | AGAG4 | Varios | 2 | 06-11-2006 11:07:44 |
Descendiente de TCollectionItem de solo lectura | adlfv | OOP | 3 | 15-09-2005 16:59:55 |
|