Event in einer Class programmieren

[Chemiker]

Hallo,

habe den Vorschlag von mirage228 umgesetzt.

Die Klasse sieht jetzt so aus:

Delphi-Quellcode:

TMyDataEvent = procedure(Sender: TObject; Data:String) of Object;

  THPLComPortClass= Class(TComponent)
  private
    FComPort       : TApdCustomComPort;
    FStringPackete : TApdDataPacket;
    function GetOeffnen: Boolean;
    procedure SetOeffnen(const Value: Boolean);
    function GetZuweisen: TApdCustomComPort;
    procedure SetZuweisen(const Value: TApdCustomComPort);
    function GetOnData: TMyDataEvent;
    procedure SetOnData(const Value: TMyDataEvent);
  protected

  published
     property OnData : TMyDataEvent read GetOnData write SetOnData;
  public
    Constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
usw.


function THPLComPortClass.GetOnData: TMyDataEvent;
begin
  Result:= FStringPackete.OnStringPacket;
end;

procedure THPLComPortClass.SetOnData(const Value: TMyDataEvent);
begin
  FStringPackete.OnStringPacket:= Value;
end;

Bis bald Chemiker