Crear eventos para una clase

[DarkByte]

Buenas tardes.

Estoy intentando crear una especie de evento para una clase que tengo hecha.

Algo así como...

Código Delphi [-]
var
   Socket : TAnibal
begin
  Socket := TAnibal.Create;
  Socket.Ip := '127.0.0.1';
  Socket.Puerto := 60;
  Socket.AlRecibir := Recibir; // ¡Aqui!
  Socket.Conectar;
end;

Se trata de que cuando reciba datos lleve el foco al procedure, con sus comandos y tal... Espero haberme explicado.

Gracias

[[maeyanes]]

Para definir eventos "personalizados":

Código Delphi [-]
// Evento creado por el usuario:
TMyEvent = procedure(Sender: TObject; var Recibido: Boolean) of object;

TMyClass = class(TObject)
private
  // Campo para guardar la referencia al procedimiento del evento
  FOnMyEvent: TMyEvent;
protegido
  // Método que dispara el evento:
  procedure DoMyEvent(var Recibido: Boolean);
public
  procedure Recibir;
published
  // Evento
  property OnMyEvent: TMyEvent
    read FOnMyEvent
    write FOnMyEvent;
end;

implementation

procedure TMyClass.DoMyEvent(var Recibido: Boolean);
begin
  if Assigned(FOnMyEvent) then
    FOnMyEvent(Self, Recibido)
end;

procedure TMyClass.Recibir;
var
  Recibido: Boolean;

begin
  // Código para recibir...
  DoMyEvent(Recibido);
  if not Recibido then
    raise Exception.Create('No se recibió')
end;

Luego en donde quieras usar tu clase nueva:

Código Delphi [-]
TMyForm = class(TForm)
private
  FMyClass: TMyClass;

  procedure Recibir(Sender: TObject; var Recibido: Boolean);
public
  procedure FormCreate(Sender: TObject);
end;

implementation

procedure TMyForm.FormCreate(Sender: TObject);
begin
  FMyClass := TMyClass.Create;
  FMyClass.OnMyEvent := Recibir;
  // etc, etc, etc...
end;

procedure TMyForm.Recibir(Sender: TObject; var Recibido: Boolean);
begin
  // Haces cualquier cosa y cambias el valor de Recibido
  Recibido := False
end;

Espero que sea esto lo que estabas buscando...



Saludos...

[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