Взаимодействие ListView с рукописными объектами.

[Turbine]

Доброго времени.
Существует некий объект и ListView ( оба принадлежат Form1), содержащий указатель на листвью
В начале идет присвоение:

tGlobal_.pListview:=@ListView1;

Обработчик ListView.onMouseDown вызывает метод объекта tGlobal_., в котором пытается определить номер выбранного элемента или выдать значение -1 (если не выбрано ничего).

    function tGlobal_.Selected:integer;
    begin
    selected:=-1;
    if Assigned(prListview^.Selected) then
    selected:=prListview^.Selected.Index+1;
    end;

Но как я ни крутился вылезает "Stack overflow"

Существует ли другой способ взаимодействия?

Вот, например, большинству компонентов может "приписан" Popup (Менюшка по правой кнопке). Как правильно это реализовывается обычно в самих компонентах, чтобы можно было присвоить простым :=popup1?

From Stilet: Темы попрошу называть адекватно! Ану бегом читать правила!!

[mutabor]

Что-то ты перемудрил, залезь в исходники Дельфи и посмотри как там реалиовано то же присвоение PopupMenu. И сделай у себя также.

В компонентах обычно как поле класса вложены другие компоненты. К ним и обращаться, им и присваивать.

Переменная-объект и так содержит указатель. Не нужно их явно использовать.

Должно получиться что-то типа этого

TMyClass = class
  public
  MyListView: TListView;
  ...

потом в коде

MyClass.MyListView:=ListView1;

Обработчики его событий опиши в своем классе.