Василий 2Ну ты все-таки не путай обращение элемента к контейнеру и обращение элемента к привязанному к контейнеру контролу. Хорошая практика - это чтобы невизуальные классы вообще никак не были связаны с контролами. Еще более хорошая практика - максимально самостоятельные классы, если они имеют хоть какой-нибудь смысл сами по себе. Например, коллекция м.б. привязана к гриду, а может и просто висеть в памяти.
Причём тут извещение ItemChanged и доступ к методам класса из элементов коллекции
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
function TColumn.GetGrid: TCustomDBGrid;
begin
if Assigned(Collection) and (Collection is TDBGridColumns) then
Result := TDBGridColumns(Collection).Grid
else
Result := nil;
end;
procedure TColumn.SetIndex(Value: Integer);
var
Grid: TCustomDBGrid;
Fld: TField;
I, OldIndex: Integer;
Col: TColumn;
begin
OldIndex := Index;
Grid := GetGrid;
if IsStored then
begin
Grid.BeginLayout;
try
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
procedure TColumn.SetWidth(Value: Integer);
var
Grid: TCustomDBGrid;
TM: TTextMetric;
DoSetWidth: Boolean;
begin
DoSetWidth := IsStored;
if not DoSetWidth then
begin
Grid := GetGrid;
if Assigned(Grid) then
begin
if Grid.HandleAllocated and Assigned(Field) and Grid.FUpdateFields then
with Grid do
begin
Canvas.Font := Self.Font;
GetTextMetrics(Canvas.Handle, TM);
Field.DisplayWidth := (Value + (TM.tmAveCharWidth div 2) - TM.tmOverhang - 3)
div TM.tmAveCharWidth;
end;
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
procedure TColumn.SetFieldName(const Value: string);
var
AField: TField;
Grid: TCustomDBGrid;
begin
AField := nil;
Grid := GetGrid;
if Assigned(Grid) and Assigned(Grid.DataLink.DataSet) and
not (csLoading in Grid.ComponentState) and (Length(Value) > 0) then
AField := Grid.DataLink.DataSet.FindField(Value);
