Event Handler

[Janine1111]

Hallo

Frage1:
Ich möchte in meinem ActiveX ein Event erzeugen, wenn mein TButton meine Funktion fertig abgearbeitet hat.

Derzeit habe ich folgendes:

Delphi-Quellcode:

type
  TEndEvent = procedure(Sender:TObject) of object;
  TATSBtn = class(TActiveForm, IATSBtn)
...
  private
    FOnEnd: TEndEvent;
...
  published
    property OnEnd: TEndEvent read FOnEnd write FOnEnd;
...
end;

procedure .....
  if Assigned(OnEnd) then OnEnd(Self);
end;

Das scheint soweit zu funktionieren. Nun möchte ich im InternetExplorer im JavaScript das Event OnEnd abfangen.

Code:

function ATSBtn1::OnEnd(){
alert('Event OnEnd');
}

Das Event bekomme ich anscheinend nicht ausgelöst. Woran kann es liegen? Wie kann ich weiter vorgehen.


Frage 2:
Eine andere Möglichkeit wäre das JavaScript direkt am ende meiner Funktion auszulösen. Hier habe ich auch schon etwas herum probiert, hatte aber keinen Erfolg. Gibt es hier eine "einfache" Möglichkeit?

Vielen Dank für eure Hilfe