как правильно перехватить сообщение окну?

[ImmortalAlexSan]

Везде пишут-пример один и тот же, который у меня не работает... Делаю так:
Workform.cpp:

void __fastcall Tf_job::FormCreate(TObject *Sender)
{
	SetLastError(0);
	old_wnd=(WNDPROC)SetWindowLongA(f_job->Handle, GWL_WNDPROC, (long)new_window_proc)
	if (old_wnd == 0);
		ShowMessage(GetLastError());
}

обработка:

LRESULT CALLBACK new_window_proc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
{
	if (msg == WM_HSCROLL)
		f_job->Caption=IntToStr((int)SB_THUMBPOSITION);
	return DefWindowProcA(hwnd, msg, wparam, lparam);
}

workform.h:

class Tf_job : public TForm
{
__published:	// IDE-managed Components
	void __fastcall FormCreate(TObject *Sender);

private:	// User declarations
public:	// User declarations
	__fastcall Tf_job(TComponent* Owner);
           WNDPROC old_wnd;
           LRESULT CALLBACK new_window_proc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam);

Функция переадресации нуль возвращает. Непонятно мне почему не получается, объясните пожалуйста.

[counter]

по моему callback функция-член_класса должна быть объявлена как static (может в билдере по другому?)

[ImmortalAlexSan]

[ILINK32 Error] Error: Unresolved external '__stdcall Tf_job::new_window_proc(HWND__ *, unsigned int, unsigned int, long)' referenced from D:\EMAGINATIONED\DEBUG\WORKFORM.OBJ

вот такую хрень пишет

[counter]

ну не знаю. проверить у меня негде...

так пробовал?

LRESULT CALLBACK new_window_proc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
{
	if (msg == WM_HSCROLL)
		f_job->Caption=IntToStr((int)SB_THUMBPOSITION);
	return CallWindowProcA(old_wnd,hwnd, msg, wparam, lparam);
}

вот тут глянь

[ImmortalAlexSan]

у меня даже не переназначается функция для перехвата. Значение нулевое.

[ImmortalAlexSan]

ребят, сделал так:

LONG CALLBACK new_wnd_proc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
{
	if (msg == WM_HSCROLL)
		f_job->Caption=IntToStr((int)f_job->HorzScrollBar->Position);
	return CallWindowProcA(f_job->old_wnd_proc, hwnd, msg, wparam, lparam);
}

void __fastcall Tf_job::FormCreate(TObject *Sender)
{
	SetLastError(0);
	old_wnd_proc=(WNDPROC)SetWindowLongA(f_job->Handle, GWL_WNDPROC,
						(long)new_wnd_proc);
}

public:		
	WNDPROC old_wnd_proc;

НО есть маааленькое НО! Если форма, чьё сообщение перехватывается - дочерняя, то ничего не работает как надо. Как выйти из положения? Всем спасибо сделал сам. Родителя доченей форме назначил в родительской форме, а надо было при создании дочерней формы родителя определить.