По поводу TInplaceEdit в TCustomGrid

← →
KSergey © (2003-07-28 14:27) [0]

В коде VCL увидел не понятную мне штуку (модуль Grids):

TInplaceEdit = class(TCustomMaskEdit) private ... procedure SetGrid(Value: TCustomGrid); ...

при этом

TCustomGrid = class(TCustomControl) private ... FInplaceEdit: TInplaceEdit; // это просто показываю о какой переменной речь ... procedure TCustomGrid.UpdateEdit; ... begin FInplaceEdit := CreateEditor; { фактически здесь TInplaceEdit.Create(Self) } FInplaceEdit.SetGrid(Self); // !!!!! ...

Т.е. идет извне обращение к приватному методу класса! Или я проглядел назначение дружественного класса? А где оно тогда? Нифига не понимаю...

← →
Semin Aleksei (2003-07-28 14:31) [1]

В одном модуле это возможно.

← →
VMcL © (2003-07-28 14:32) [2]

A private member is invisible outside of the unit or program where its class is declared. In other words, a private method cannot be called from another module, and a private field or property cannot be read or written to from another module. By placing related class declarations in the same module, you can give the classes access to one another’s private members without making those members more widely accessible.

← →
KSergey © (2003-07-28 14:43) [3]

Вот это да.. Не знал.. Как-то это странно, ну да уж как есть.
Спасибо.

Понятия friend в Делфях нет. Внутри одного модуля всё доступно всем.

По поводу TInplaceEdit в TCustomGrid Найти похожие ветки