Скачать: CL | DM;

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

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

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

---

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

MakeObjectInstance

---

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

Схема такая:

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 (пример выдернул именно оттуда).

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.077 c