Comctrls (доступ к pivate методу UpdateCols)
Здравствуйте. Интересуясь разработкой компонентов, скачал себе файл Comctrls.pas и при изучении данного файла столкнулся с такой проблемой, что из класса TCustomListView в методе CreateWnd, вызывается private метод UpdateCols класса TListColumns, если такое возможно то как избавиться от ошибок "is not accessible" при компиляции проектов с аналогичными ситуациями.
Часть кода из данного файла:
TListColumns = class(TCollection)
private
...
...
...
procedure UpdateCols;
protected
...
public
...
end;
/--------------------------------------/
procedure TCustomListView.CreateWnd;
...
...
...
Columns.UpdateCols;
...
...
end;
|