Ereignis zuweisen

[Helmut Schumacher]

Hallo,<br>
ich möchte die Zuweisung an Application.OnException bereits im initialization-Abschnitt durchführen. Wie sieht das in Pascal aus??
Die Zuweisung einer einfachen Procedure scheitert mit einer Fehlermeldung!<br>
Helmut

[Hagen Reddmann]

Normalerweise benötigst Du ein alloziertes Object und eine passende Methode im Object. Es gibt aber einen Weg, wenn man weis wie Object Methoden funktionieren.

<pre>

procedure DoException(Self: Integer; Sender: TObject; E: Exception);
begin
WriteLn( Self );
end;<br>

procedure Init;
var
N: TExceptionEvent;
begin
TMethod(N).Data := Pointer(1234567);
TMethod(N).Code := @DoException;
Apllication.OnException := N;
end;<br>

initialization
Init;
finalization
end.

</pre>

Gruß Hage

[Helmut Schumacher]

Super!!!<br>
einfach s..u..p..er gut.<br>
Helmu

[Hagen Reddmann]

Äh die 1234567 ist nicht zwingend erforderlich, sie sollte nur zeigen das TMethod.Data der Self Zeiger bzw. das Object einer Methode ist. In Deinem Falle könntest Du einfach "nil" nehmen, da Du ihn wahrscheinlich eh nicht brauchst