Nein.
Grund, die Signatur dieser Methode stimmt nicht mit den benötigten Parametern überein.
Genauso wie normale Methoden hat auch diese (mindestens) einen weiteren versteckten Parameter.
Tipp: Versuch einfach mal deine Methode dieser Variable zuzuweisen ... sollte nicht gehn.
Delphi-Quellcode:
type TWndProc = function(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var MyWndProc: TWndProc;
MyWndProc := WndProc;
Bei solchen Pointerssachen muß man halt aufpassen, da dort Delphi die Signaturen nicht prüfen kann.
Du kannst diese Methode aber dennoch in deine Klasse auslagern.
Delphi-Quellcode:
type
TXYZClass = class(...)
class function _WndProc(hWnd: HWND; uMsg: UINT;
wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; static;
end;
static ist hier das Zauberwort, denn diese statischen Klassenmethoden haben keinen versteckten Parameter.
Es gibt zwar auch noch trickt, wie man eine "normale" Methode so vergiben kann, daß am Ende in Self dein HWND versteckt wäre (also stattdessen), aber ich würde nicht unbvedingt dazu raten.