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:

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

Delphi-Quellcode:

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 :

Delphi-Quellcode:

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