Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Ereigniss mit Parameter ?


Daniel L. - So 05.02.06 14:14
Titel: Ereigniss mit Parameter ?
Hallo,

Kann man eigentlich ein eigenes Ereigniss schreiben und auslösen, welches ausser TObject einen zusätzlichen Parameter mit übergibt?

bisher habe ich immer mit TNotifyEvent gearbeitet, da geht nur (Sender : TObject)

Danke _Daniel


Alstar - So 05.02.06 14:28
Erstelle doch einfach einen eigenen Prozedurtyp und nimm den dann als Event.
Kleines Bsp:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
 
type
  TErrorNotify = procedure(Sender: TObject; Error: Word) of object;

  TKlasse = class // irgendeine klasse
  private
    FErrorEvent: TErrorNotify;
  public
    property OnError: TErrorNotify read FErrorEvent write FErrorEvent; // Normalerweise Set und Get Prozeduren verwenden!
  end;

und irgendwo im Klassenquelltext kann es z.B. so aufgerufen werden:

Delphi-Quelltext 
1:
2:
 
  if Assigned(FErrorEvent) then
    FErrorEvent(Self, 1);


Alstar

Quelltext ungetestest


ghost_assassin - Di 07.02.06 18:13
füg doch einfach den parameter
oben bei procedure ein

Delphi-Quelltext 
1:
 
procedure TForm1.Button2Click(Sender: TObject; aCaption:String);


das musste nur bei interface/type und
bei procedure direkt eintragen...

wenn du kompillieren willst kommt noch
ein hinweis, den du guten gewissens
mit ja bestätigen kannst...


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!