Asignar un evento a un componente creado en tiempo de ejecucion

[roman]

En Google hay varis referencias a este tipo de avisos, indicando que es un bug que concierne a Error Insight. Sólo que yo no sé qué es eso pues mi delphi 7 no lo tiene. Pero que pruebes desactivándolo.

// Saludos

[[FGarcia]]

Bueno siguiendo tu ejemplo cambie algunas cositas y funciono!!

en la declaracion del procedimiento:

Código Delphi [-]
 
procedure OnAfterReceive(Com: TObject; Buffer: Pointer;
      Received: Cardinal);

// quedo asi: elimine el ON

procedure AfterReceive(Com: TObject; Buffer: Pointer;
      Received: Cardinal);

En la creacion del componente tambien elimine el ON

Código Delphi [-]
ComPort.OnAfterReceive := AfterReceive;

y en la implementacion del evento (procedimiento) elimine el comport de AfterReceive

Código Delphi [-]
procedure TdmNrComm.AfterReceive(Com: TObject; Buffer: Pointer;
  Received: Cardinal);
var i:integer;
    ch:AnsiChar;
begin
  //LO QUE TENGA QUE HACER

end;

Probe y todo funciona ok!!

Sin embargo aqui surge otra duda ¿que pasa si creo mas de un componente del mismo tipo? ¿como le asigno el procedimiento en forma individual a cada uno? En esta primera prueba le he asignado el procedure AfterReceive pero no he pasado ningun parametro ¿¿??

¿Alguna sugerencia? me gusta complicarme la vida

[roman]

Empezado por FGarcia

y en la implementacion del evento (procedimiento) elimine el comport de AfterReceive

A todos se nos pasó

Éste es el único cambio necesario. En la declaración lo llamabas OnAfterReceive y en la implementación lo llamabas ComPortAfterReceive.

// Saludos

[ecfisa]

Hola de nuevo.

Claro...

Estabas declarando:

Código Delphi [-]
type
  TdmNrComm = ...
   procedure OnAfterReceive(Com: TObject; Buffer: Pointer; Received: Cardinal);
...

Y luego definiendo:

Código Delphi [-]
procedure TdmNrComm.ComPortAfterReceive(Com: TObject; Buffer: Pointer; Received: Cardinal);
...

Presté atención en mi código, pero juro que se me escapó leyendo el tuyo, disculpas

Saludos

[[FGarcia]]

Disculpas nada!!

Esa afrenta solo se puede lavar con una ronda de Virtual Beer en la Taberna y aprovechando que es viernes........

[ecfisa]

Vamos para allá que yo invito entonces...