Procedure als Property

[Blamaster]

Hi,

ich habe eine eigene Klasse erstellt. Nun würde ich gerne eine eigene procedure erstellen die wie beispielsweise ein OnClick Ereignis arbeitet.

Sinn der Sache soll sein, dass ich im Hauptprogramm eine Instanz der Klasse erstelle und eine Procedure übergebe. (MeineKlasse.OnEigenesEvent := Hauptprogramm.OnEigenesEvent). Nun soll ein Aufruf der Procedure innerhalb meiner Klasse das OnEigenesEvent Ereignis im Hauptprogramm aufrufen.

Wie ist das umsetzbar ?

Gruß Yannic

[s.h.a.r.k]

Delphi-Quellcode:

TMyEvent = procedure () of object;
// hier könntes du auch noch eigene Parameter einfügen
// schau dir mal TNotifyEvent an

TBlub = class
private
  FOnMyEvent : TMyEvent;
  procedure CallOnMyEvent();
public
  property OnMyEvent : TMyEvent read FOnMyEvent write FOnMyEvent;
end;

procedure TBlub.CallOnMyEvent();
begin
  if Assigned(FOnMyEvent) then
    FOnMyEvent();
end;

[Blamaster]

Danke

[himitsu]

type TMyEvent = procedure ... function geht natürlich auch

of object ... das ist ein Methoden-Zeiger (also in einer Klasse deklariert).
Ein Prozedur-Zeiger wäre ohne dieses.

type TMyEvent = reference to procedure wäre eine Referenz auf irgendwas (Prozedur/Funktion, Methode oder sogar eine anonyme Methode)
Gibt es aber erst seit ein paar Delphiversionen.


@Blamaster: Du hast nicht zufällig ein "Delphi 7 Personal"?
Wenn nicht, dann hättest du dir das bekannte OnClick auch selber mal ansehen und dort abgucken können.