Transparente Menüs unter XP

[toms]

Code:

Result := CallWindowProc(Pointer(OldWndProc), Wnd, uMsg, wParam, lParam);

oder

Code:

Result :=  CallWindowProc( TFNWndProc(lRet), Wnd, uMsg, wParam, lParam);

gibt keinen Fehler mehr. Jedoch wird das Menü auch nicht transparent dargestellt.