Здравствуйте, Alex.Che, Вы писали:
AC>>> Поднимите мне веки. Не вижу такой жуткой необходимости. 
S>> Дело за малым — напишите компилятор, который избавит нас от этого ограничения.
AC>При чем тут компилятор?!
AC>Почему нельзя было вместо
AC>type TNotifyEvent = procedure (Sender: TObject) of object;
AC>написать просто:
AC>type TNotifyEvent = procedure (Sender: TObject);
AC>Ы?
потому что довольно таки часто всетаки требуется:
type TNotifyEvent = procedure (Context: Pointer; Sender: TObject);
и кстати, довольно редко хотелось бы, чтобы это была форма
чаще что-то другое, что мы и подставляем.... например:
m_reportTree.OnNodeSliceInfo := BehaviorMenu(menu).OnNodeSliceInfo;
.............
BehaviorMenu = class
public
procedure OnNodeSliceInfo(Sender: TCustomTree; Node: TNodeHandle; var State: cardinal);
end;
.............
procedure BehaviorMenu.OnNodeSliceInfo(Sender: TCustomTree; Node: TNodeHandle;
var State: cardinal);
var
menu: TXmlMenu;
groupNode: TXmlNode;
begin
menu := TXmlMenu(self);
.................
end;
... << RSDN@Home 1.1.4 beta 6a rev. 436>>
