Event in einer Class programmieren

[Blup]

Delphi-Quellcode:

 THPLComPortClass= Class(TComponent)
  private
    FComPort       : TApdCustomComPort;
    FStringPackete : TApdDataPacket;           // ---- in dieser Komponente ist das Event
                                                                      // schon vorhanden.

    FOnData : TMyDataEvent;  // Event

    function GetOeffnen: Boolean;
    procedure SetOeffnen(const Value: Boolean);
    function GetZuweisen: TApdCustomComPort;
    procedure SetZuweisen(const Value: TApdCustomComPort);
    procedure MyOnData(Sender: TObject; Data: String);
  protected

  published
     property OnData : TMyDataEvent read FOnData write FOnData;  // Event
  public
    Constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;

    property Oeffnen: Boolean Read GetOeffnen Write SetOeffnen;
    property zuweisen: TApdCustomComPort Read GetZuweisen Write SetZuweisen;
  End;


procedure THPLComPortClass.MyOnData(Sender: TObject; Data: String);
begin
  if Assigned(FOnData) then FOnData(Self, Data);
end;

Wichtig: Bei der Zuweisung von "FStringPackete" muss auch "FStringPackete.OnData" zugewiesen werden.

Delphi-Quellcode:

FStringPackete := ???
FStringPackete.OnData := MyOnData;