[Gino D]

SendToHooked could hang if one of the HookedComponents is not TForm:

i := 0;

while i <= Length(HookedComponents) - 1 do begin if HookedComponents is TForm then

with TMessage(Message), TForm(HookedComponents) do begin

if not (csDestroying in ComponentState) then begin

SendMessage(Handle, Msg, WParam, LParam);

AlphaBroadCast(TForm(HookedComponents), Message);

if FormStyle = fsMDIForm then

SendMessage(ClientHandle, Msg, WParam, LParam);

end;

//inc(i); –> old code

end;

inc(i); //–> new code

end; //while

AlphaControls 10.16

[Support]

Thank you for the message! This code will be changed in the nearest release.

[Author]

Posts