Eigene Komponente - "OnDaPassiertEtwas"

[napsterxx]

Also ich habe soetwas noch nie gemacht, und dazu eine Edit Komponente auseinander genommen - ohne Erfolg
Kurz zu meinem Vorhaben.

Ich habe hier eine kleine Komponente gebastelt, welche ein Message-Event abfängt, WM_COPYDATA. Nun wollte ich, dass der Anwender Folgendes einfaches machen kann:

MeineKomponent.OnRecive := MessageErhalten; Hoffe ihr wisst was ich meine. Ich habe überhaupt keine Ahnung was ich da wohin schreiben muss, und vorallem wie. protected? published? OnRecive?^^

[Satty67]

Delphi-Quellcode:

TMeinEvent = procedure(Sender : TObject) of object;
// Könnte man, statt es zu definieren z.B. auch ein Standard Klick-Event nehmen
// also statt TMeinEvent einfach TNotifyEvent, wenn nicht mehr übermittelt wird.

TDeineComponente = class
private
  FOnDaPassiertWas : TMeinEvent;

public //oder published, wenn es im OI stehen soll
  property OnReceive : TMeinEvent Read FOnDaPassiertWas Write FOnDaPassiertWas;
end;

// innerhalb der Klasse das ereignis auslösen:
if Assigned(FOnDaPassiertWas) then FOnDaPassiertWas(self);

[napsterxx]

Ich habe es genau so übernommen, auch keine Übersetzungsfehler aber die OnRecive methode wird nicht aufgerufen. Ich dachte es liegt daran das die Nachricht nicht ankommt - dem ist nicht so, Nachricht kommt an.

[Sunlight7]

Zitat von Satty67:

Delphi-Quellcode:

...// innerhalb der Klasse das ereignis auslösen:
if Assigned(FOnDaPassiertWas) then FOnDaPassiertWas(self);

Dabei sollte man drauf achten, das als letztes im Codeblock zu platzieren, oder nachfolgenden Code mit try finally zu schützen, da im OnPassiertWas eine Exception ausgelöst werden könnte.

[napsterxx]

Jetzt gehts. Danke ihr zwei.