die ist nur local zu Forms vorhanden. Dafür gibt es aber:
WndProc(var Message...)
nun müssen wir gucken ob wir da ansetzen können. Die existiert hoffentlich nicht nur a la Delphi in den visuellen Objekten, Dann wär's wieder "Arschlecken".
EDIT #1
Es findet sich in Forms:
TApplication.WndProc(var Message: LMessage);
weiterhin implementiert TObject:
Dispatch(var message)
DispatchStr...
Zum ansetzen findet sich in LMessages LM_User, das dürfte der kleinste Wert für eigene Messages sein. Da empfiehlt sich wohl ne eigene Unit MyAppMessages wo man dann in der Form:
Code: Alles auswählen
interface
uses
LMessages, Forms;
const
LM_MyFirstMsg = LM_User;
LM_MySecondMsg = LM_User + 1;
var
MyApp: TApplication;
implementation
initialization
MyApp:= Application;
usf. deklarieren zu können. Dort sollte man vielleicht auch die Variable MyApp deklarieren, wie gezeigt. Da man diese Unit überall dort laden muß wo man eigene Messages deklariert, hat man dann auch den Zugrif auf MyApp.WndProc ohne deswegen gleich überall Forms laden zu müssen.
In TObject ist Dispatch vereinbart, Dispatch verteilt normalerweise die Messages an die entsprechende Prozedur wenn denn eine da ist. Das muß dann auch bei jeder Ableitung von TObject oder später gehen.
Nun müssen wir halt mal sehen, wie man die Message-Procs deklarieren muß. Bei Delphi mußten die public sein wenn ich mich nicht irre. Da findet man aber verschiedene Aussagen.
Verein
Links
