| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
WinProc = метод класса. Как? [D7, Win2k, WinXP]
П7 © (2005-10-06 03:03:00)Доброго времени суток, Мастера!
Хочется сделать некий класс, аля TForm, только попроще и под свои нужды. Естественно без юзания TForm и Forms.pas.
Всё вроде бы понятно, кроме того, как назначить создаваемому окну (точнее классу окна) обработчик не обычной процедурой, а методом данного класса.
Ковырялся в модуле Forms.pas, но так и не разобрался. Как-то там всё это очень хитро сделано.
Помогите разобраться, пожалуйста.
Джо (2005-10-06 03:39:00) [1]Схема такая:
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 (пример выдернул именно оттуда).
Джо (2005-10-06 03:33:00) [2]
MakeObjectInstance
| |
