creando componente

[delphi.com.ar]

Vale aclarar que yo estoy haciendo las pruebas en Delphi 5.
Lo único que agregué en un momento, pero luego quité fue:

procedure Tedit2.SetParent(AParent: TWinControl);
begin
  inherited;
  if not (csDestroying in ComponentState) Then
    FBoton.Parent := AParent;
end;

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 ... que nos elimina los objeto... es una solución válida

Saludos!

[Descendents]

Funciona.

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

¿Y que diferencia hay con delphi 5 ?

Muchas gracias a los dos.

Saludos

[Descendents]

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.

[Descendents]

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

[delphi.com.ar]

Empezado por Descendents

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

Así es!

Empezado por Descendents

como existen estos mensajes de windows

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!

[Descendents]

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.

[marto]

Hola a todos,

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

procedure Tedit2.MeAsignanElParent(AParent: TWinControl);
begin
  inherited;
  if not (me están destruyendo) then
    FBoton.Parent := AParent;
end;

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"??

[delphi.com.ar]

Empezado por marto

Es decir, si me están destruyendo, no asignes mi parent al del botón.

Esa es la idea!

Empezado por marto

¿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)?.

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.

Empezado por marto

Otra cosa que no entiendo es ¿por qué el form ha destruído al Button?

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

Empezado por marto

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

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!