Crear eventos para una clase

[[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'

[roman]

Recibir tiene que ser un método de un objeto, no puedes asignar un procedimiento cualquiera.

// Saludos

[[maeyanes]]

El error es por que Recibir no puede ser un procedimiento cualquiera. Tiene que se un método de una clase. En tu caso, Recibir debe ser un método de TForm1.

Código Delphi [-]
TForm1 = class(TForm)
private
  procedure Recibir(ASender: TObject; var ACanal, AComando, AParametros: string;
    var Privado: Boolean);
end;

Saludos...