Текущий архив: 2005.12.11;
Скачать: 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 вся ветка
Текущий архив: 2005.12.11;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.035 c