Eigene Komponente -> Wie ein eigenes OnEvent erstellen?

[KodeZwerg]

Guten Morgen, ich finde mit meinen Suchanfragen leider keine guten Treffer.

Ich würde gerne ein eigenes OnEvent erschaffen für eine selbsterstellte Komponente.
Kann mir jemand vielleicht mit einem minimal-Beispiel oder Link auf die Sprünge helfen? Das wäre echt nett!

Was ich vorhabe:
In meiner Komponente gibt es eine "Aborted" Eigenschaft (Boolean) die auch zielführend gesetzt wird, nun hätte ich gerne ein "OnAborted" Event um sowie als auch darauf reagieren zu können,
nur fehlt mir Wissen wie man so etwas macht.
Ich habe gestern in vielen Delphi Komponenten krampfhaft versucht herauszufinden wie die Entwickler das vollbringen, leider ohne ans Ziel zu kommen.

Für Hinweise "How-To" bin ich sehr dankbar!

[DeddyH]

Delphi-Quellcode:

type
  TDeineKomponente = class(TComponent)
  private
    FOnAborted: TNotifyEvent;
    ...
  public
    procedure Abort;
    ...
  published
    property OnAborted: TNotifyEvent read FOnAborted write FOnAborted;
    ...
  end;

...

procedure TDeineKomponente.Abort;
begin
  // Abbrechen
  if Assigned(FOnAborted) then
    FOnAborted(self);
end;

[KodeZwerg]

Du bist mein


Vielen Dank!!!!

[scrat1979]

Zusatz: Du kannst auch statt TNotifyEvent eine eigene Procedure verwenden mit

FOnAborted : procedure(var DoAbort : Boolean) of object Dann kannst im Eventhandler die Variable setzen und in deinem Code drauf reagieren

Delphi-Quellcode:

Procedure Komponente.Abort
var FAbort : Boolean;
Begin
 FAbort := True

 if Assigned(FOnAborted) then 
 FOnAborted(FAbort);

// Hier kannst dann die Rückgabe von FAbort auswerten und reagieren 
end;

Ist manchmal ganz praktisch. Habe auch ewig gebraucht um die Events zu kapieren, aber irgendwann hat es „Click“ gemacht.

[KodeZwerg]

Das werde ich beides am Wochenende mal durchtesten, mir fehlte halt absolut ein Anfang, die Delphi Komponenten sind so dermaßen verschachtelt das ich's nicht nachvollziehen konnte.

Vielen lieben Dank für den Zusatz!

[Hobbycoder]

Also ich mach das, gerade in eigenen Componenten, immer so:

Delphi-Quellcode:

Type
  TOnAbort=proceudre(Sender: TObject; Aborted: Boolean) of object;

  TMyComponent=class(TComponent)
  private
    FOnAbort: TObAbort;
    procedure DoAbort(Aborted: Boolean);
  published
    property OnAbort: TOnAbort read FOnAbort write FOnAbort;
  end;

.
.
.
  proceudre DoAbort(Aborted: Boolean);
  begin
    if Assigned(FOnAbort) then
      FOnAbort(self, Aborted);
  end;
.
.
.
  procedure Execute;
  begin
.
.
.
.
    DoAborted(True);
  end;

So habe ich auch mit self den Sender zur weiteren Verarbeitung und den Event im OI