creando componente
 

Tengo una pregunta, ¿como puedo yo en un determinado procedure dentro de mi componente, crear otro componente? pero que el parent sea el parent de mi componente.NO que el parent sea el mismo componente.

Es decir pongamos que hago un componetne que hereda de un tbutton, pero en el on create del mismo, que cree un tmemo, en el form , no dentro del boton.Dentro del boton seria, paren := self;

He probado parent := self.parent; pero entonces no me aparece nada.

Gracias.

La finalidad, es que en un deterrminado procedimiento o evento o lo que sea, poder crear un determinado componente, pero que el parent sea el form, o sino el parent de mi componente.

Seria que cuando pongo Tmibutton en el formulario, apreciera Tmibutton, y un Tmemo en una determinada posicion, quien dice tmemo, dice lo que sea.

Saludos
Muchas gracias

La solución es lo que tu propones, fíjate que el código que muestras no este dentro de un with, ten en cuenta que en el create del componente aún no esta asignado el parent del mismo.

en el caso que sea en un procedure como vos decís:

Saludos!

Pues este era mi problema, ya me funciona.
Gracias de nuevo

Uso windows Xp y delphi 7 lo digo por si acaso.

cuando se trata de procedimiento ningún problema, el parent se asinga bien y todo.Pero lo de setparent al crear el componente, en momento de diseño todo bien, pero cuando compilo, y cierro la aplicación me da un error bastante grande, que tengo que volver a reiniciar el delphi..

Este es mi codigo de un componente simple y me da error.Haber si podeis decirme porfavor donde esta el error.Ahora que lo pienso igual el error esta en el destroy, por que es cuando me da error.


Gracias
Saludos

debugueando he visto que el error me lo da en el destroy justo en el inherited.

Hago algo mal, que cuando la aplicacion se cierra, por culpa del parent, me da un error que me hace reiniciar el programa entero.

Gracias de antemano

Tienes un problema en el orden de liberación de los componentes, solución: elimina la línea Fboton.Free, total queda siempre eliminado cuando se elimina el TEdit, por su relación Owner.

Saludos!

¿Has probado esto?

Estuve haciendo pruebas al respecto y también me marca errores (aún quitando la línea que indicas), uno montón de "Access violation" e "Invalid pointer operation" y no queda más que Ctrl-Alt-Supr.

Esto sucede cuando se inserta la componente durante el diseño y creo que tiene que ver con el hecho de que el Designer no se entera de la componente creada.

También intenté usar InsertControl y aunque los errores no fueron tan catastróficos aún apareción uno aunque esto último ya no lo probé con detalle.

// Saludos

Pues, si lo he probado.... Este fue el texto original de mi respuesta, solo que lo resumí (bastante) porque creí que lo estaba complicando:

Bueno, te comento que he probado tu código y el error solo lo da si el Owner del TEdit2 destruye al componente, si lo destruyes "a mano" no se produce esto, lo que me lleva a sospechar que el problema es que primero se ejecuta el destroy del TWinControl y luego el de TComponent, que quiero decir con esto, que el form libera primero a todos los componentes relacionados por el Parent y luego los relacionados por el Owner, y como accede a la lista de abajo hacia arriba, destruye primero el botón y luego al edit, entonces cuando quieres destuír el botón explícitamente en el Destroy da un access violation, solución: elimina la línea Fboton.Free, total queda siempre eliminado cuando se elimina el TEdit, por su relación Owner.

¿Has recompilado el paquete donde tienes instalado el componente?... porque si lo cambias solo en RunTime, el exe funcionará sin problemas pero el IDE fallará porque conserva una versión antigua del componente.

Como dije, aún eliminando la línea del Free obtengo errores. Aquí está el codigo completo que según yo coincide con lo que dices:

¿Qué me falta?

Sí claro. Acabo de hacerlo nuevamente y pasó esto:

1. Inserté el componente
2. Cerré el formulario
3. Cerré Delphi

Sin problemas

Y me dije a mí mismo: "MiMismo, algo andabas haciendo mal"
Entonces volví a abrir Delphi e hice:

1. Inserté el componente
2. Cerré Delphi

Accesss violation again.

// Saludos

Buenas, lo he probado, y a mi aún me sigue dando errores.Me pasa igual que ha roman

Por todos sitios donde he mirado, lo hacen como tu dices, pero no me funciona.

El labelededit que lleva delphi, le he mirado el codigo fuente, y tambien lo hacen igual.

No se, pero no me funciona.

El error es una lista interminable de errores hasta que tengo que reiniciarlo.

Gracias.

además he hecho esto

procedure Tedit2.SetParent(AParent: TWinControl);
begin
inherited;
FBoton.Parent := AParent;
showmessage(AParent.Name);
end;

y el mensaje es 'Form1' es decir, lo esta asignando bien.Pero al cerrar la aplicación algo hace.

Saludos

¡Ahhhhh! ¡No podía recordar cuál era la componente que incluía Delphi y que usaba esta técnica.

Vuelve a revisar el código y seguro que encontrarás cómo solucionarlo. Observa los puntos donde crea la etiqueta (SetupInternalLabel) y donde le asigna el Parent (SetParent) y verás que primero verifica que sea distinto de nil. También observa el uso de FreeNotification y Notification. El primero le indica a la etiqueta que le avise cuando se destruya y así, en Notification poder poner a nil la referencia.

// Saludos

lo he hecho esto que me dices.El setupinternallabel, si no recuerdo mal, lo que hacia era crearlo.

Y el notification le pasa el componente y la orden opremove o algo asi era Flabel := nil

Todo esto lo he probado.

No se.Haber si alguien seria tan amable de hacer un pequeño componente muy pequeño que lo unico que haga sea crar dos componentes a partir de uno y que cuando se cierre el programa no de todos esos errores.

Se que es un poco pedir, pero es que no me funciona lo que en teoria deberia de funcionar.

Muchas gracias

Vamos a ver. Intenta este:

Al parecer no me marca ningún error.

Claro que verás que aunque puedes modificar las propiedades del botón en el inspector de objetos, no puedes moverlo, ni siquiera seleccionarlo en el formulario mediante el ratón. Dependiendo de lo que desees quizá te convenga fijarte con más detalle en la implementación de TLabeledEdit para lograr que el botón se mueva junto con tu Edit.

// Saludos

Vale aclarar que yo estoy haciendo las pruebas en Delphi 5.
Lo único que agregué en un momento, pero luego quité fue:
El notification es obligatorio(a mi parecer) cuando el usuario puede eliminar un objeto relacionado con el componente, esta vez en lugar de un usuario tenemos un Owner :D... que nos elimina los objeto... es una solución válida

Saludos!

Funciona.

¿Una cosa delphi.com.ar, que significa esa linea que has añadido milagrosa? :p

¿Y que diferencia hay con delphi 5 ?

Muchas gracias a los dos.

Saludos

Una pequeña cosa, ya puestos.

como existen estos mensajes de windows

procedure CMVisiblechanged(var Message: TMessage);message CM_VISIBLECHANGED;
procedure CMEnabledchanged(var Message: TMessage);message CM_ENABLEDCHANGED;
procedure CMBidimodechanged(var Message: TMessage);message CM_BIDIMODECHANGED;

que me sirven para saber si ha cambiado el bidimode o etc..., entonces yo se lo asigno al button.

¿que mensaje de windows es, el que se llama cuando un componente se mueve por la pantalla? no DRAG, sino que se mueve como sea.

¿O no necesito un mensaje de windows con un twincontrol?

como por ejemplo esta el
doenter;override;

¿no habra un domove o algo asi?

Aunque he buscado en la ayuda y no encontrado nada.

La diferencia con el labelededit, es que lleva el buton asignado como una propiedad, entonces supongo que el solo ya se encarga de moverlo cuando toca.

Pero en mi caso no quiero hacerlo asi, quiero controlar yo de alguna manera cuando el edit se mueve.

Espero se me enitenda

Gracias y ya con esto creo que no tengo ninguna intención más de molestar.Por que tela la de preguntas que he hecho en este hilo

Muchas gracias a los dos (Repito)y un saludo.

mi ultima pregunta ya me la contesto yo.I lo pongo por si alguien nunca tiene la misma duda.

procedure WMmove(var Message: TMessage); message WM_MOVE;

Y creo que la penultima pregunta que hice lo de la linea milagrosa, es que no se le debe asignar el parent en el momento de la destrucción,
¿NO?


Saludos

Así es!

Justo los mensajes que has nombrado no son propios de Windows, utilizan el sistema de mensajes de Windows, pero son mensajes propios de la VCL.

Bueno... vemos como te has contestado solo, eso significa que primero es conveniente investigar un poco y luego preguntar, aclaro que no te estoy recriminando nada, bien sabes que siempre te he contestado de buena gana ;) , solo para que lo tengas en cuenta!

Saludos!

Estoy totalmente de acuerdo contigo y creo que haces muy bien en decirlo, pero a veces la desesperación en algo, hace cometer estos errores.

Muchas gracias.

Hola a todos,

Pues yo no entiendo por qué la "linea milagrosa" soluciona el problema. Traduciendo a pseudocódigo el de Delphi.com.ar ...

Es decir, si me están destruyendo, no asignes mi parent al del botón. ¿Qué tenemos que deducir de eso? que cuando TForm destruye a los Componets les cambia la propiedad Parent (y por eso se dispara el método)?

Otra cosa que no entiendo es ¿por qué el form ha destruído al Button? El Button forma parte del array Controls no de Components, ¿TForm tambien se encarga de destruir a Controls?

Finalmente en lugar de conprobar que no se esté destruyendo el componente, no os parece más elegante comprobar que el boton esté "assigned"??

Esa es la idea!


En el TControl.Destroy se asigna el Parent a Nil, esto produce que se dispare este método cuando se está destruyendo el componente, despues de hacer el FButton.Free según el código original.


En el destructor de los TWinControl se destruyen todos los componentes hijos, relacionados por el parent (Controls)


Bueno.. el código original completo lo había hecho con assigned, pero el problema es que el owner destruye antes a componente, y no lo deja apuntado a Nil (0)... entoces assigned siempre da True, aunque el botón ya no exista.


Saludos!