модификация TApplication

[xrob]

... или правила плохого тона
Ну что ж, господа, всех поздравляю, всем спасибо!
модификация TApplication прошла успешно!

смысл модификации:
по-умолчанию Application.OnMessage можно назначить только одну процедуру.
а что делать если нужно чтоб на событие реагировало несколько разных процедур?
моя модификация как раз и добавляет такую возможность - назначать OnMessage
неограниченное кол-во процедур, грубо говоря.

реализация:
1. в классе TApplication создаем свое поле:
privat
FOnMessages:array of TMessageEvent;
это будет массив, в который будут записываться указатели на назначаемые процедуры

2. дополнить код вызова FOnMessage вызовом всех процедур из массива:

if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
for i:=0 to Length(FOnMessages)-1 do if Assigned(FOnMessages[i]) then FOnMessages[i](Msg, Handled);

3. реализовать функцию для добавления процедуры в массив:
public
function AddOnMessage(proc:TMessageEvent):in teger;
код функции весьма прост:

d:=Length(FOnMessages);
SetLength(FOnMessages,d+1);
FOnMessages[d]:=proc;
Result:=d;

по моей идее функция будет возвращать индекс массива, куда она добавилась,
чтобы потом, в случае необходимости, можно было ее из массива удалить.

в итоге
теперь у нас есть возможность назначать любое кол-во процедур.
насколько это полезно/бесполезно - зависит от конкретных задач и для каждого индивидуально.
соотношение результат/цена тоже на вкус и цвет. любителям "хорошего тона" покажется неприемлемым,
а мне, деревенскому простолюдину, вполне нравится =)
вобщем, надо оно вам или нет - решайте сами.
если захотите повторить этот изврат - как обеспечить себе возможность редактировать
исходники стандартных компонентов я рассказывал в хитроback'й Delphi