BorlandTalk.com

samuel herzog · Guest

Hi,
here is a fix for possible troublemaker.
If you use the better bold debugger and some other components that do hook
into the OnMessage then
you may have experienced some runtime error 216 or 217 when closing your
application.

The assertion was usually rised in procedure TMultiCaster.HookOff; of unit
AppEvnts.

Here comes the fix for unit <uSystemMenuHandler.pas>.

procedure TSystemMenuHandler.HookOnMessage;
var
localEvent: TMessageEvent;
begin
localEvent := MessageHandler;
if (TMethod(Application.OnMessage).Code <> TMethod(localEvent).Code)
and (not assigned(OriginalOnMessage)) then begin // <<---fix
OriginalOnMessage := Application.OnMessage;
Application.OnMessage := MessageHandler
end;
end;