Usar eventos en un VCL

[Sonic]

Estimado Cadetill:

He respasado el código Delphi aunque no estoy muy ducho en la sintaxis de Delphi creo que es exáctamente lo que yo hago. Pero me alegra ver que ya más o menos se sabe por donde van los tiros.

Pego a continuación mi código:

 
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//
 
static inline void ValidCtrCheck(TSRichEdit *)
{
  new TSRichEdit(NULL);
}
//---------------------------------------------------------------------------
__fastcall TSRichEdit::TSRichEdit(TComponent* Owner)
: TRichEdit(Owner)
{
  ExOnSelectionChange=false;
  Primer_evento=false;
} 
//---------------------------------------------------------------------------
namespace Srichedit
{
	void __fastcall PACKAGE Register()
  {
	TComponentClass classes[1] = {__classid(TSRichEdit)};
	RegisterComponents("Samples", classes, 0);
  }
}
//---------------------------------------------------------------------------
void __fastcall TSRichEdit::WndProc (Messages::TMessage &Message)
{
  if (!Primer_evento)
  { 
	{
	   Primer_evento=true;
	   if (OnSelectionChange!=NULL)
	   {
		 ExOnSelectionChange=true;
		 FExOnSelectionChange=OnSelectionChange;
	   }
 
	   OnSelectionChange=FInOnSelectionChange;
	   ShowMessage("Hola quillo 0");
	   OnSelectionChange=FExOnSelectionChange;
	 }
   }
 
  TWinControl::WndProc(Message);
}
//---------------------------------------------------------------------------
void __fastcall TSRichEdit::FInOnSelectionChange (TObject *Sender)
{
  ShowMessage("Hola Quillo 1");
  if (ExOnSelectionChange)
  FExOnSelectionChange(Owner);
}
//---------------------------------------------------------------------------

Según entiendo yo, es lo mismo, salvo que el puntero a la funcion FExOnSelectionChange no lo he declarado como una propiedad. El problema sigue siendo el mismo, mientras estoy en modo de diseño de la aplicación. El componente se ejecuta y en la linea en la que se suplanta el MAnejador del evento, se porvoca el borrado de la citada casilla en el Inspector de objetos

Te dejo el código por si puedes darme alguna pista
Gracias

[Sonic]

Guau! He ido a desayunar, no me esperaba que respondiérais tan rápido, muchísimas gracias. Respondo a Marto, diciendo que no se me había ocurrido esa forma de implemetar mi función, entre otras cosas porque desconocía el siginificado de Inherit;.

Voy a intentar hacer una traducción a Borland y a ver que pasa, No creo que tarde más de 15 minutos.

Por cierto aun no se si lo que hago es un VCL o un template, por favor si puedes aclararmelo o direccionarme a alguna página te lo agradecería.

[marto]

Empezado por Sonic

Por cierto aun no se si lo que hago es un VCL o un template, por favor si puedes aclararmelo o direccionarme a alguna página te lo agradecería.

Bueno... si lo que haces es Component -> Create Component Template, no estás creando un componente nuevo verdaderamente. En realidad estás duplicando una insatancia, es como si copiases y pegases el componente de un form a otro juntamente con los eventos asociados. Cada vez que dejas caer tu template en un form nuevo, todo ese codigo se crea en la unit correspondiente.
Inconvenientes: Si quieres cambiar algo de ese código, vas a tener que hacerlo en todos los sitios donde dejaste el componente. Además, el código está "visible" en todos lados y puede ser modificado involuntariamente. No nos olvidemos del estilo, es mucho más cómodo que el código no se vea y trabajemos de contra una "caja negra".
Para evitar todos esos inconvenientes, se crea un componente nuevo, es decir una nueva clase. Si no me quivoco esto es lo que intentas y tambien a lo que te refieres por "crear un VCL", si no es así corrígeme
Ah! por cierto, por favor encierra tu código entre tags "code"..."/code" para que se vea bien... ¿de verdad crees que muchos se van a poner a intentar un código de tantas líneas que no está siquiera indentado?

[Sonic]

Vale Marto:

Muchas gracias ya veo la diferencia, y sí, tienes razón es precisamente lo que quiero hacer.

Por lo de mi código, pido perdón os aseguro que está indentado, que yo soy muy ordenado con el código que escribo, pero es la primera vez que pego código en este foro y no se hacer lo de los tags que me dices.

Bueno estoy probando lo del inherited pero no me sale, me da una serie de errores precisamente en esa isntrucción. A mi me gusta investigar un poco por mi cuenta antes de pedir ayuda así que voy a intentarlo un rato más y si no me sale postearé de nuevo.

Otra vez muchas gracias me estais siendo de mucha ayuda!

" asd"

[marto]

Empezado por Sonic

Por lo de mi código, pido perdón os aseguro que está indentado, que yo soy muy ordenado con el código que escribo, pero es la primera vez que pego código en este foro y no se hacer lo de los tags que me dices.

Bueno, por esta vez ya te lo he hecho yo, pulsa tu mismo en "editar" y verás como lo he hecho

[Sonic]

Muchas gracias por explicarme cómo pegar código.

Lo siento pero no consigo que el código funcione.
A continuación pego lo que he escrito:

 
 // ValidCtrCheck is used to assure that the components created do not have
 // any pure virtual functions.
 //
 
 static inline void ValidCtrCheck(TSRichEdit *)
 {
 		new TSRichEdit(NULL);
 }
 //---------------------------------------------------------------------------
 __fastcall TSRichEdit::TSRichEdit(TComponent* Owner)
 		: TRichEdit(Owner)
 {
 }
 //---------------------------------------------------------------------------
 namespace Srichedit
 {
 		void __fastcall PACKAGE Register()
 		{
 				 TComponentClass classes[1] = {__classid(TSRichEdit)};
 				 RegisterComponents("Samples", classes, 0);
 		}
 }
 //---------------------------------------------------------------------------
 void __fastcall TSRichEdit::SelectionChange (TObject *Sender)
 {
   ShowMessage("Hola Quillo 1aaaaa");
   inherited SelectionChange(TObject *Sender);
   //TCustomRichEdit::SelectionChange();  // Esto tampoco funciona
 }

Defino la función SelectionChange y recibo el warning de que estoy tapando a la virtual de TCustomRichEdit.

Pero cuando ejecuto el código y ocurre un evento OnSelectionChange solo se ejecuta el código de usuario y no el interno de mi componente.

Tras ver ese post de pista que ofreciste, se me ocurrio sencillamente suplantar al WndProc y capturar el mensaje EN_SELCHANGE, y tras esto ejecutar mi código y luego llamar al WndProc del TWinControl. Esto último ya lo he hecho con otro tipo de mensajes y funciona pero el mensaje EN_SELCHANGE no consigo capturarlo.

Así que de nuevo estoy estancado. Como puedes ver en el código e intentado usar lo de Inherited y esa parece ser la única forma en que compila y la linea que hay más abajo comentada es (según creo yo) otra forma de hacer lo mismo pero que tampoco funciona.

Ah otra cosa, viendo que no funcionaba miré esto:

Empezado por Marto

begin
if Assigned(OnSelectionChange) then OnSelectionChange(Self);

E intenté implantarlo en el constructor de mi objeto de la siguiente manera:

   if (OnSelectionChange==NULL)
 	 OnSelectrionChange=SelectrionChange;

y también lo intenté con el Self que parece no reconocerlo de ninguna manera.

Tal y como lo veo ahora tengo dos opciones: intentar seguir por el camino que me marcó Marto, o instentar capturar el mensaje EN_SELCHANGE. Cualquiera de las dos soluciones me serviría. Aunque preferiría poder usar la de Marto ya que me parece la más sencilla de las dos (en cuanto a la estructura del programa).

Muchas Gracias

[marto]

Empezado por Sonic

void __fastcall TSRichEdit::SelectionChange (TObject *Sender)
{
  ShowMessage("Hola Quillo 1aaaaa");
  inherited SelectionChange(TObject *Sender);
  //TCustomRichEdit::SelectionChange(); // Esto tampoco funciona
}

¿Eso te compila?
No tengo el c++ y no lo puedo probar, pero a mi me parece que tendría que ser así:

void __fastcall TSRichEdit::SelectionChange (TObject *Sender)
{
  ShowMessage("Hola Quillo 1aaaaa");
  inherited SelectionChange(Sender);
}

Empezado por Sonic

Pero cuando ejecuto el código y ocurre un evento OnSelectionChange solo se ejecuta el código de usuario y no el interno de mi componente.

¿quieres decir que que no se ejecuta el showmessage? eso es porque no estás sobrecargando el método. Ahora no recuerdo cómo se hace en c++, pero tienes que encontrar el equivalente al override de Delphi


P.D: Ojalá todos los usuarios tubiesen tu actitud. Espero que tengamos la suerte de tenerte a menudo por aquí