Вот, например, есть код:

Код

...   type       PMyWindow = ^TMyWindow;      TMyWindow = object(TWindow)     ...     i: integer;     ...   end;

Далее в программе я объявил 1 указатель, например, в виде mw: PMyWindow.

Далее, чтобы добавить это окно на рабочий стол используется команда вида:

Код

...    Desktop^.Insert(mw);   ...

Но теперь мне нужно получить указатель на текущее активное окно. Как это сделать?
Если для каждого окна создавать указатель - это не рационально. Если создать массив указателей - толку ноль, все равно нужно узнать какое окно активно и желательно сразу же и получить указатель.

Например так:

Код

...     var        pCurWindow: PMyWindow;     begin       pCurWindow := Desktop^.GetCurWindow;     ...

Тем более что Desktop происходит от TGroup, а TGroup - это по ходу дела коллекция.