Обработка Сообщений Windows

[VirusZ2D]

как правильно подключить функцию на Delphi робит на c++ нет ((

HWND FHwnd;

LONG_PTR OldWndProc;

 

в создании формы

    FHwnd = Fmx::Platform::Win::WindowHandleToPlatform(Handle)->Wnd;
    OldWndProc = GetWindowLongPtr(FHwnd, GWL_WNDPROC);
    SetWindowLongPtr(FHwnd, GWL_WNDPROC, LONG_PTR(MyWndProc));

 

 LRESULT __stdcall MyWndProc(HWND Hwnd,UINT Msg, WPARAM WParam,LPARAM LParam)
{
   if (Msg == WM_MOVE) {
          ShowMessage("Тест") ;
   }
   return CallWindowProc(OldWndProc,Hwnd, Msg, WParam, LParam); /////// ошибка  E2034 Cannot convert 'long' to 'long (__stdcall *)(HWND__ *,unsigned int,unsigned int,long)'
}

[VirusZ2D]

сам же и отвечаю )))

заменить 

LONG_PTR OldWndProc;

на

typedef LRESULT(__stdcall * func)(HWND,unsigned,WPARAM,LPARAM);
func OldWndProc;

 

OldWndProc = GetWindowLongPtr(FHwnd, GWL_WNDPROC);

на

OldWndProc = (func)GetWindowLongPtr(FHwnd, GWL_WNDPROC);