Eigene Klasse : Ereignisse ?

[Real-TTX]

Hallo, leider finde ich bezgl der erstellung von Ereignissen in der eigenen Klasse nichts

Hat jemand ein kleines Beispiel ? Oder ein spez. Stichwort nachdem ich suchen kann?

Danke

Gruß, Real-TTX

[Meflin]

http://www.delphipraxis.net/internal...ct.php?t=15202

Delphi Klasse Event

[freak4fun]

dsdt.info

[mirage228]

Moin,

Ereignisse bei OO gehen in Delphi so

Delphi-Quellcode:

type
  TDeinEreignis = procedure(Parameter1: Integer; Parameter2: string) of object;

Wichtig ist das "of object" - Das "Standardereignis", das häufig verwendet wird ist TNotifyEvent.

In der Klasse siehts dann so aus

Delphi-Quellcode:

type
  TDeineKlasse = class
  private
    FEreignis: TDeinEreignis;
  public
    property DeinEreignis: TDeinEreignis read FEreignis write FEreignis;
end;

// Wenn Du es dann aufrufen willst z.B.
if @FEreignis <> nil then
  FEreignis(40, 'Test');

Viele Grüße

[Real-TTX]

Erstmal Danke für die blitzschnellen Antworten.

Also, das mit dem Ereigniss habe ich nun noch nicht ganz so verstanden.

Was genau macht :

Delphi-Quellcode:

// Wenn Du es dann aufrufen willst z.B.
if @FEreignis <> nil then
  FEreignis(40, 'Test');

Und :

Delphi-Quellcode:

type
  TDeineKlasse = class
  private
    FEreignis: TDeinEreignis; 
  public
    property DeinEreignis: TDeinEreignis read FEreignis write FEreignis; // Warum eine Eigenschaft ? Wenn ich außerhalb der Klasse ein Ereigniss Definiere ?
end;

Gruß, Real-TTX

[Real-TTX]

Mit

Delphi-Quellcode:

if @FEreignis <> nil then
  FEreignis(40, 'Test');

wird überprüft ob FEreignis vorhanden ist -> also definiert worden ist?


Seh ich das richtig?

[mirage228]

Zitat von Real-TTX:

Was genau macht :

Delphi-Quellcode:

// Wenn Du es dann aufrufen willst z.B.
if @FEreignis <> nil then
  FEreignis(40, 'Test');

Also die erste Zeile ist äquivalent zu
if Assigned(FEreignis) then und prüft, ob hinter "FEreignis" auch wirklich ein zugewiesenes Ereignis (siehe unten) oder nichts (nil) steckt.
Die zweite Zeile ist der Aufruf des Ereignis mit den gewünschten Parametern.

Zitat:

Warum eine Eigenschaft ? Wenn ich außerhalb der Klasse ein Ereigniss Definiere ?

Das Ereignis definierst Du außerhalb (z.B. in einem Formular)

Delphi-Quellcode:

procedure TForm1.MeinEreignis(Parameter1: Integer; Parameter2: string);
begin
  // Reagiere auf das Ereignis hier...
end;

// Dann musst Du noch das Ereignis zuweisen 
var
  Klasse: TDeineKlasse;
begin
  // ...
  Klasse.DeinEreignis := Form1.MeinEreignis;
end;

In der Klasse ist "FEreignis" nun ein Zeiger auf Form1.MeinEreignis. Wenn ich also später "FEreignis(40, 'Test')" schreibe, wird Form1.MeinEreignis mit diesen Parametern aufgerufen.

Viele Grüße

[Real-TTX]

Ahh Ok

War ich ja garnicht so falsch. Aber warum muss ich in meiner Klasse das aufgerufene Ereigniss zuweisen :
Klasse.DeinEreignis := Form1.MeinEreignis; Ich weiß vorher ja nicht ob mich Frm1, Form2 oder Bla aufruft?

Ist es möglich das als Property oder ähnliches festzulegen, dass ich beim Aufruf dann folgendes habe :

Delphi-Quellcode:

var
 MeinKlasse : TMeineKlasse;

procedure Form1.ButtonClick....
begin
 MeineKlasse.Ereigniss := 'testereignis';
end;

procedure Form1.Testereigniss(blabla,blkbalbal);
begin
...
end;

Gruß, Real-TTX

[mirage228]

Äh, moment!

Möchtest Du in Deiner Klasse ein Ereignis aufrufen oder möchtest Du einem Ereignis des Formulars oder so (ButtonKlick meinetwegen) eine Methode Deiner Klasse zuweisen?

[Real-TTX]

In meiner Klasse ein Ereigniss aufrufen und in meinem Program (Unit von einer Form) das Ereigniss definieren.

Oder habe ich da nun was falsch verstanden ?

Gruß, Real-TTX