WinProc = метод класса. Как?

← →
П7 (2005-10-06 03:03) [0]

Доброго времени суток, Мастера!
Хочется сделать некий класс, аля TForm, только попроще и под свои нужды. Естественно без юзания TForm и Forms.pas.
Всё вроде бы понятно, кроме того, как назначить создаваемому окну (точнее классу окна) обработчик не обычной процедурой, а методом данного класса.
Ковырялся в модуле Forms.pas, но так и не разобрался. Как-то там всё это очень хитро сделано.
Помогите разобраться, пожалуйста.

← →
Джо © (2005-10-06 03:33) [1]

MakeObjectInstance

Схема такая:
TCustomForm = class (...) FClientInstance: TFarProc; ... procedure ClientWndProc(var Message: TMessage); // этот метод класса будет оконной процедурой ... end; ... // при создании окна FClientInstance := Classes.MakeObjectInstance(ClientWndProc); FDefClientProc := Pointer(GetWindowLong(FClientHandle, GWL_WNDPROC)); ... /// при уничтожении окна if FObjectInstance <> nil then Classes.FreeObjectInstance(FObjectInstance);
Дальнейшие подробности - см. модуль Forms.pas, метод procedure TCustomForm.CreateWnd (пример выдернул именно оттуда).

WinProc = метод класса. Как? Найти похожие ветки