Event mit Parameter der sich selbst enthält

[Sämy]

Wie kann ich folgendes Problem bewerkstelligen?

Delphi-Quellcode:

type
  TSZOnFinishEvent = procedure (SZTestClass: TSZTestClass) of Object; // Benötigt die classe TSZTestClass, die es noch nicht gibt
  TSZTestClass = class(TComponent)
  private
    FOnFinishEvent: TSZOnFinishEvent;                                 // Benötigt das Object TSZOnFinishEvent, welches es nicht gibt, 
                                                                      // sofern ich das Problem oben löse und das Objekt nach der Klassen-
                                                                      // definition definiere...
  end;

Besten Dank im Voraus

[Treffnix]

Das sollte gehen, indem du einfach nen Dummy davorsetzt:

Delphi-Quellcode:

type 
  TSZTestClass = class;  
  TSZOnFinishEvent = procedure (SZTestClass: TSZTestClass) of Object; // Benötigt die classe TSZTestClass, die es noch nicht gibt 
  TSZTestClass = class(TComponent) 
  private 
    FOnFinishEvent: TSZOnFinishEvent;                                                                      
end;

[marabu]

Nicht alles ist gut, was geht. Der vom FrameWork vorgelebte Standardweg sieht so aus:

Delphi-Quellcode:

type
  TSZOnFinishEvent = procedure(Sender: TObject) of object;

  TSZTestClass = class(TComponent)
  private
    FOnFinishEvent: TSZOnFinishEvent;
  end;

Grüße vom marabu

[jim_raynor]

Zitat von marabu:

Nicht alles ist gut, was geht. Der vom FrameWork vorgelebte Standardweg sieht so aus:

Delphi-Quellcode:

type
  TSZOnFinishEvent = procedure(Sender: TObject) of object;

  TSZTestClass = class(TComponent)
  private
    FOnFinishEvent: TSZOnFinishEvent;
  end;

Grüße vom marabu

Dann kannst du auch gleich TNotifyEvent benutzten. Da finde ich die Lösung von Treffnix wesentlich eleganter und du ersparst dir fleißiges Typcasten in dem Event-Handler.

[marabu]

Zitat von jim_raynor:

Dann kannst du auch gleich TNotifyEvent benutzten.

Wenn das von sämy echter Code war und nicht ein verkürztes Beispiel - was ich anhand der Identifier geschlossen habe - dann sollte wirklich TNotifyEvent eingesetzt werden. Wenn sämy seinem Event noch zusätzliche Parameter spendieren will, dann ist das Extra-Event schon in Ordnung - aber den Sender zu typisieren ist schlechter Stil. In einem frame work wird das sehr schnell zu einem Pferdefuß, im Programm eines Hobby-Programmierers bleibt es eher ohne Folgen. Wenn nur ein einziger Jung-Programmierer versteht, warum das so ist, oder zumindest darüber nachdenkt, dann hat sich mein Beitrag in diesem thread gelohnt.

Grüße vom marabu

[MosiXXL]

So gehts.

Delphi-Quellcode:

type
  TSZTestClass = class;

  TSZOnFinishEvent = procedure (SZTestClass: TSZTestClass) of Object; // Benötigt die classe TSZTestClass, die es noch nicht gibt

  TSZTestClass = class(TComponent)
  private
    FOnFinishEvent: TSZOnFinishEvent;                                 // Benötigt das Object TSZOnFinishEvent, welches es nicht gibt,
                                                                      // sofern ich das Problem oben löse und das Objekt nach der Klassen-
                                                                      // definition definiere...
  end;