регистрация класса окна (указатель на процедуру)

[xrob]

есть класс:

TTest = class
Handle:HWND;
Canvas:TCanvas;
hwndmain:HWND;
constructor Create(AOwner:TComponent);
function MainWndProc(window: hwnd; AMessage, wparam, lparam: longint):longint; stdcall; export;
end;

есть функция, заполняет структуру TWndClass для регистрации класса:

function TTest.initapplication:boolean;
var
wcx: twndclass;
begin
wcx.style := cs_hredraw or cs_vredraw;
wcx.lpfnwndproc := @TTest.MainWndProc;
wcx.cbclsextra := 0;
wcx.cbwndextra := 0;
wcx.hinstance := application.Handle;
wcx.hicon := loadicon(0, IDI_ASTERISK);
wcx.hcursor := loadcursor(0, idc_arrow);
wcx.hbrbackground := color_window;
wcx.lpszmenuname := nil;
wcx.lpszclassname := pchar(winname);
result:=windows.registerclass(wcx) <> 0;
end;

потом возникает ошибка создания окна.
проблема вот в этом:
wcx.lpfnwndproc := @TTest.MainWndProc;
ибо это есть
procedure TTest.MainWndProc(...);

если прописать эту процедуру за пределами класса, то все работает:
procedure MainWndProc(...);
wcx.lpfnwndproc := @MainWndProc;

компилируется нормально.

wcx.lpfnwndproc как я понял просит pointer,
поэтому у меня вопрос, как получить pointer на TTest.MainWndProc?

[Пепел Феникса]

а вы знаете чем отличается функция от метода класса?
максимум это выйдет статический метод класса.

[Stilet]

stdcall; export;

А разве можно экспортировать метод класса?

поэтому у меня вопрос, как получить pointer на TTest.MainWndProc?

Если и получать указатель то не на описание метода, а на его реализацию. Точно не помню, но есть метод MethodAddress если не ошибаюсь он вернет адрес функции-метода http://www.freepascal.org/docs-html/...odaddress.html

Однако смутны цели автора...