OnEvent überschreiben?

[Bernhard Geyer]

Zitat von Pseudemys Nelsoni:

Bernhard, ich glaub das ist mir auch "zu schwer"

Wieso zu schwer?

Delphi-Quellcode:

type
  TMyClass = class(TComponent)
  private
    FClientSocket: TClientSocket;
    FOnConnect: TNotifyEvent;

    function ClientSocketEvent(...);
  public
    constructor Create(AOwner: TComponent);
  
  published    
    property OnConnect: TNotifyEvent read FOnConnect write FOnConnect; 
  end;    


constructor TMyClass.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FClientSocket := TClientSocket.Create(self);
  FClientSocket.OnEvent := ClientSocketEvent;
  ...
end;

function TMyClass.ClientSocketEvent(...);
begin
  ...
  ...
  if xyz ....
    if Assigned(OnConnect) then
      OnConnect(self);
  ...
end;

Ohne Garantie auf sofortige Compilierbarkeit!