Нашел такое решение: https://forum.sources.ru/index.php?showtopic=211412&st=0&#entry1772960 В частности, function NewWindowProc(wnd:HWND; uMsg:UINT; wParam:WPARAM; lParam:LPARAM):integer; stdcall; begin

Question

Нашел такое решение: https://forum.sources.ru/index.php?showtopic=211412&st=0&#entry1772960 В частности, function NewWindowProc(wnd:HWND; uMsg:UINT; wParam:WPARAM; lParam:LPARAM):integer; stdcall; begin

if (uMsg=WM_VSCROLL) or (uMsg=WM_HSCROLL) then Form2.memo2.Perform(uMsg,wParam,lParam);
result:=CallWindowProc(Pointer(GetWindowLong(wnd,GWL_USERDATA)),wnd,uMsg,wParam,lParam)
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
SetWindowLong(Memo1.Handle,GWL_USERDATA,SetWindowLong(Memo1.Handle,GWL_WNDPROC,LPARAM(@NewWindowProc)));
memo1.SelStart:=0;
memo2.SelStart:=0;
end;
Не могу перевести это на си++:
SetWindowLong(Memo1->Handle, GWL_USERDATA, SetWindowLong(Memo1->Handle, GWL_WNDPROC, LPARAM(NewWindowProc)));
На это RAD ругается: [bcc32c Error] Unit1.cpp(35): cannot compile this scalar expression yet

Кто-то может пояснить, что вообще здесь происходит? Я так понимаю, идея - установить функцию обратного вызова NewWindowProc() на какие-то сообщения в Memo1, а уж NewWindowProc() их транслирует в Memo2?