Проблема с указателем на Frame

[bakanaev]

Добрый день\вечер

Имеется Frame, на нем ListView и Button1. Так же имеется самописный класс TMainClass, унаследованный от TThread.

При создании экземпляра класса TMainClass, передается указатель на Frame. Класс создается при нажатии на Button1.

Класс TMainClass

  TMainClass = class(TMainClass)
    ..
    protected 
      procedure Test;
    public
      ParentPointer: ^TIWFrame2;
      ListViewPointer: ^TsListView;
  end;

  procedure TMainClass.Test;
  begin
     ParentPointer^.ListView1.Items.Count; // Тут у нас вылетает access
     ListViewPointer^.Items.Count; // А тут все ок
  end;

Класс фрейма

type
  TIWFrame2 = class(TFrame)
    ...
    ListView1: TListView;
    procedure Button1Click(Sender: TObject);
  end;

  procedure TIWFrame2.sButton1Click(Sender: TObject);
  ...
  begin
    ...
    MainClass := TMainClass.Create;
    MainClass.ListViewPointer := @ListView1;
    MainClass.ParentPointer := @Self;
    MainClass.Resume;
  end;

На строке ParentPointer^.ListView1.Items.Coun t;, вылетает access.


Пожалуйста, подскажите в чем причина.
Я конечно могу обращаться сразу к ListView1 (через его указатель), минуя ParentPointer, но все же для меня удобнее использовать ParentPointer, т.к его юзают еще и другие функции.

Спасибо

[Аватар]

ParentPointer: ^TIWFrame2;

Почему не

ParentPointer: TIWFrame2;

Это и так указатель на объект. Ну и обращение непосредственно к ListView1.Items.Count из потока чревато. Синхронизация наше все

[bakanaev]

ParentPointer: TIWFrame2;

Все равно access летит

[Аватар]

MainClass.ParentPointer := @Self;

Так и осталось? @ убери

[bakanaev]

Сообщение от Аватар

Так и осталось? @ убери

Точно, забыл убрать)) Спасибо