OnMessage в Kol

← →
OnMessage (2003-09-06 08:42) [0]

function OnHotKey( var Msg: TMsg; var Rslt: Integer ): Boolean;
begin
if Msg.message=WM_HotKey then //например

.............
Result:=true;
end;

MainForm.OnMessage:=TOnMessage(MakeMethod(nil,@OnHotKey));

Выдает Runtime error,что я делаю неправильно?

← →
Кладов (2003-09-06 09:54) [1]

Процедура-метод (функция-метод) объекта (класса) отличается от регулярной процедуры (функции) только наличием скрытого первого параметра, представляющего собой переменную Self объекта. Практически все события описаны как procedure(...) of object или function( ... ):... of object, т.е. обработчиком должен быть метод объекта (класса). Если требуется использовать регулярную процедуру или функцию, недостающий параметр должен быть описан явно:
function OnHotKey( Dummy_Self: PObj; var Msg: TMsg; var Rslt: Integer ): Boolean;
В этом случае на месте первого параметра правильно передается тот объект, который был задан первым параметром функции MakeMethod (в выше приведенном коде это nil). Если же этот параметр пропущен, то nil передается на месте параметра Msg, из-за чего и происходит ошибка во время исполнения.

http://kol.mastak.ru/FAQ.htm#10

Агх! Товарищу строгий выговор за такой вопрос!

OnMessage в Kol Найти похожие ветки