|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
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; |
#2
|
||||
|
||||
да, возможно, если классы находятся в одном модуле (unit):
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TMyForm = class private FBla: Integer; procedure Sleep; end; TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } FMyForm: TMyForm; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TMyForm } procedure TMyForm.Sleep; begin Windows.Sleep(FBla); end; procedure TForm1.FormCreate(Sender: TObject); begin FMyForm:=TMyForm.Create; FMyForm.FBla:=5000; FMyForm.Sleep; FMyForm.Free; end; end. Пишу программы за еду. __________________ |
#3
|
|||
|
|||
NumLock, спасибо что откликнулись на мое сообщение, в Delphi все получилось а можно ли сделать тоже самое на Borland C++?
|