Zwei Events auf einer Component

[Pravljica]

Hallo,

ich arbeite am einem Programm, dessen source code ich nicht habe. Ich will einen neuen Event auf eine Component registrieren, aber ich weiss nicht ob diese Component diesen Event schon hat.
Wie kann ich meinen Event registrieren, obwohl der original schon exists? Beide events mussen feuern.

Entschuldige fur mein schlechtes Deutch

[taaktaak]

Keine Sorge, dein Deutsch ist velmi dobre - besser als von manch anderem zu lesen.
Sorry, zum Problem selbst kann ich leider nix sagen.

[_frank_]

wenn du den Quellcode nicht hast ist es unerheblich, ob die "Komponente" das event hat. in dem fall kannst du nicht auf die VCL-Eigenschaften zugreifen und musst auf WinApi-Ebene eingreifen.
Jetzt kommt es natürlich darauf an, welche events du realisieren willst. Du kannst dich zwar in die Nachrichtenverarbeitung einklinken, aber auch nur, wenn dein "Event" durch eine solche Nachricht aufgerufen wird.
genaueres kann ich nicht sagen, ohne das Programm und die gewünschten Events zu kennen.

Gruß Frank

[Pravljica]

Danke taaktaak, _frank_

Ich habe das gefunden und werde es ausprobieren:

Delphi-Quellcode:

OrigEventHandler := nil;
if Assigned(Comp.Event) then
  OrigEventHandler := Comp.Event;

Comp.Event := MyEventHandler;

...

procedure TForm1.MyEventHandler(<event params>);
begin
  // My code here.


  if Assigned(OrigEventHandler) then
    OrigEventHandler(<event params>);
end;

[_frank_]

ich denke du hast den Quellcode des Programmes nicht? da wird dir das nix nutzen...