Я делал такую вещь, вот пример:

## Код:
```
PROCEDURE (v: StdView) HandleCtrlMsg (f: Views.Frame; VAR msg: Views.CtrlMessage;
      VAR focus: Views.View);
      VAR res: INTEGER;
            host: Views.View;
            c: Containers.Controller;
   BEGIN
         WITH msg: Controllers.TrackMsg DO
            host := Views.HostOf(f).view;
            WITH host: Containers.View DO
               c := host.ThisController();
               IF c # NIL THEN
                  c.SetSingleton(v)
               END
            ELSE
            END;
            Dialog.Call("StdCmds.ShowProp", "", res)
         | msg: Controllers.PollCursorMsg DO
            msg.cursor := Ports.refCursor
         ELSE
         END
   END HandleCtrlMsg;
```
