Crear eventos para una clase

[DarkByte]

En efecto, intentaré comprenderlo y escribiré los resultados.

Muchísimas gracias

[DarkByte]

Pues... error

[Error] scEscipion.pas(74): Published field 'AlRecibir' not a class nor interface type

Código Delphi [-]
type
  // *** Clase para pasar el evento
  TEventoRecibir = procedure (ASender :TObject; var ACadena :string);
type
  // *** Clase TEscipion
  TEscipion = Class(TObject)
  (...)
     // *** Eventos
    FAlRecibir : TEventoRecibir;
    procedure PasarRecibido(var Cadena :string);

  private
  (...)
    procedure Recibir;

  public
  (...)
   
  published
    AlRecibir :TEventoRecibir
      read FAlRecibir; //¡Ojo! Aquí recibo el error
      write FAlRecibir;
end;

[[maeyanes]]

Te hizo falta poner of object en la declaración del tipo evento.

Código Delphi [-]
type
// *** Clase para pasar el evento
TEventoRecibir = procedure (ASender :TObject; var ACadena :string) of object;

Saludos...

[DarkByte]

Aún poniendo

Código Delphi [-]
type
  // *** Clase para pasar el evento
  TEventoRecibir = procedure (ASender :TObject; var ACadena :string) of object;

Me falla en..

Código Delphi [-]
  published
    AlRecibir :TEventoRecibir
      read FAlRecibir; // Linea 75  
      write FAlRecibir; // Linea 76
end; // Linea 77

Me suelta lo siguiente:

[Error] scEscipion.pas(75): Published field 'AlRecibir' not a class nor interface type
[Error] scEscipion.pas(75): ',' or ':' expected but ';' found
[Error] scEscipion.pas(76): ',' or ':' expected but identifier 'FAlRecibir' found
[Error] scEscipion.pas(77): Type expected but 'END' found

[[maeyanes]]

Ah!!, es que no me fijé que también tenías otro error: no estás usando la palabra reservada property para declarar el evento de tu clase:

Código Delphi [-]
  // ...
published
  property AlRecibir: TEventoRecibir
    read FAlRecibir // <--- aquí no lleva -> ; <-
    write FAlRecibir; 
end; // Linea 77

Saludos...

[DarkByte]

Ya está, ¡¡Perfecto!! Muchas gracias.. ahora a rellenar los procedimientos .. en eso creo que no voy a tener problemas

¡¡Muchísimas gracias!!

[DarkByte]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
  procedure Recibir (ASender :TObject; var ACanal, AComando, AParametros :string; var Privado : boolean);
  begin
    Memo1.Lines.Add('Canal: '+ACanal +' Comando: '+ AComando+' Parametros: '+AParametros);
  end;
var
  Bot : TEscipion;
begin
  Bot := TEscipion.Create;
  Bot.Ip := '127.0.0.1';
  Bot.Puerto := 60;
  Bot.FAlRecibir := Recibir; //¡Error!
  Bot.Conectar;
end;

Error: [Error] Unit1.pas(43): Incompatible types: 'method pointer and regular procedure'