![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
|||
|
|||
|
conversor a tcomponent
hola a todos, estoy haciendo un boton llamado tmybutton que hereda de tbutton, pero al quererle cambiar el parent no me deja por no ser del mismo tipo y he oido que existe un conversor a tcomponent, sabeis como es?¿
Gracias el codigo es este: Código:
procedure TForm2.Button3Click(Sender: TObject); var i:integer; bot:tmybutton; begin for i:=0 to form2.ComponentCount -1 do begin bot:=form2.components[i]; bot.Parent:=form3; end; |
|
#2
|
||||
|
||||
|
¿Puedes explicar exactamente qué quieres hacer?
¿Cambiarle el parent a los TButton para qué? En el código que has pasado, por ejemlpo, intentas cambiar el parent, entre otros, al propio botón que has pulsado, a parte de que el owner sigue siendo el propio form (eso no creo que le siente bien al Delphi). En ese código además estás cambiando el parent a todos los componentes, no sólo los TButton.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi ![]() P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
#3
|
|||
|
|||
|
Buenas, es un simple ejercicio de clase en el que al hacer click a un boton, cambiamos de ventana los botones a traves de parent, la propiedad owner se cambia a traves de otro boton:
Código:
procedure tform2.CanviarPropietari (Component, NewOwner : TComponent);
begin
Component.Owner.RemoveComponent (Component);
NewOwner.InsertComponent (Component);
end;
|
|
#4
|
||||
|
||||
|
Ok, entendido.
Además he de decir que también había leído una cosa mal en el enunciado y estaba pensando que era otra cosa. Supongo que al error que te refieres es que te falta hacer el "CAST" al asignar valor a bot. Prueba con esto:
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi ![]() P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
#5
|
|||
|
|||
|
pues.... FUNCIONO!!!! Muchas gracias
![]() |
![]() |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Conversor de € a PTS | REHome | .NET | 3 | 04-01-2008 21:03:32 |
| TComponent y Handle | ixMike | OOP | 5 | 12-10-2007 13:45:52 |
| Ayuda con el procedimiento Notification de Tcomponent | Punzo | OOP | 6 | 11-05-2006 23:52:42 |
| Casting de TComponent en TEdit | jamonete2 | Varios | 2 | 12-06-2005 15:56:19 |
| WM_DEVICECHANGE en un TComponent | NeWNeO | API de Windows | 5 | 28-05-2004 16:12:07 |
|