procedure of object of object?

[Edson]

I would like yo use a event handler declared nested in a procedure:

Code: Pascal  [Select][+][-]

1. procedure Foo;
2.  
3.   procedure Bar;
4.   begin
5.   end;
6.  
7. begin
8.   ...
9.   SomeObject.OnEvent := @Bar;  //????
10.   ...
11. end;

Is it possible? This doesn't work: TMyEvent = procedure of object of object;

[marcov]

Code: Pascal  [Select][+][-]

1.  {$modeswitch nestedprocvars}
2. type teventtype = procedure is nested;

[Edson]

Code: Pascal  [Select][+][-]

1.  {$modeswitch nestedprocvars}
2. type teventtype = procedure is nested;

Thanks. Sometimes FPC surprises me.

[Jonas Maebe]

Note that this is very dangerous. As soon as the outer procedure is exited, the procedural variable (which is the generic term for what you call an event handler) will become invalid. The reason is a nested procedure has access to the context of the outer procedure, and when the outer procedure exits this context gets destroyed (and hence becomes invalid).

[Edson]

OK. I see it's dangerous. Maybe only useful for events of local objects.