Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

.

functionTDBPanel.GetDataField: String;

begin

Result := FDataLink.FieldName;

end;

functionTDBPanel.GetDataSource: TDataSource;

begin

Result := FDataLink.DataSource;

end;

procedureTDBPanel.SetDataField( ConstValue: string);

begin

FDataLink.FieldName := Value;

end;

procedureTDBPanel.SetDataSource(Value: TDataSource);

begin

FDataLink.DataSource := Value;

end;

• Добавьте частный метод DataChange, назначая событие объекта datalink OnDataChange. В методе DataChange добавьте код для отображения данных поля актуальной базы данных, связь с которой обеспечивает объект data-link. В нашем примере мы назначаем значение поля FDataLink заголовку панели.

{ пример }

private

.

.

procedure DataChange(Sender: TObject); = nil thenCaption := '';

implementation

.

.

procedureTDBPanel.DataChange(Sender: TObject);

begin

ifFDataLink.Field

elseCaption := FDataLink.Field.AsString;

end;

• Перекройте метод конструктора компонента Create. При реализации Create, создайте объект FDataLink и назначьте частный метод DataChange событию FDataLink OnDataChange.

{ пример }

public

constructor Create(AOwner: TComponent); override;

.

.

implementation

.

.

constructorTMyDBPanel.Create(AOwner: TComponent);

begin

inheritedCreate(AOwner);

FDataLink := TFieldDataLink.Create;

FDataLink.OnDataChange := DataChange;

end;

• Перекройте метод деструктора компонента Destroy. При реализации Destroy, установите OnDataChange в nil (чтобы избежать GPF), и освободите FDatalink.

{ пример }

public

.

.

destructor Destroy; override;

.

.

implementation

.

.

destructor TDBPanel.Destroy;

begin

FDataLink.OnDataChange := nil;

FDataLink.Free;

inheritedDestroy;

end;

• Сохраните модуль и установите компонент (смотрите документацию Users Guide и Component Writers Guide для получения дополнительной информации по сохранению модулей и установке компонентов).

• Для тестирования функциональности компонента расположите на форме компоненты TTable, TDatasource, TDBNavigator и TDBPanel. Установите TTable DatabaseName и Tablename в 'DBDemos' и 'BioLife', а свойство Active в True. Установите свойство TDatasource Dataset в Table1. Установите TDBNavigator и свойство TDBPanel DataSource в Datasource1. Имя TDBpanel DataField должно быть установлено в 'Common_Name'. Запустите приложение и, используя навигатор и перемещаясь по записям, убедитесь в том, что TDBPanel обнаруживает изменение данных и отображает значение соответствующего поля.

Полный код компонента

unitMydbp;

interface

usesSysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DB, DBTables;

typeTDBPanel = class(TCustomPanel)

private

FDataLink: TFieldDataLink;

functionGetDataField: String;

functionGetDataSource: TDataSource;

procedureSetDataField( ConstValue: string);

procedureSetDataSource(Value: TDataSource);

procedureDataChange(Sender: TObject);

public

constructorCreate(AOwner: TComponent); override;

destructorDestroy; override;

published

propertyDataField: string read GetDataField write SetDataField;

propertyDataSource: TdataSource read GetDataSource write SetDataSource;

end;

procedure Register;

implementation

procedure Register;

begin

RegisterComponents('Samples', [TDBPanel]);

end;

functionTDBPanel.GetDataField: String;

begin

Result := FDataLink.FieldName;

end;

functionTDBPanel.GetDataSource: TDataSource;

begin

Result := FDataLink.DataSource;

end;

procedureTDBPanel.SetDataField( ConstValue: string);

begin

FDataLink.FieldName := Value;

end;

procedureTDBPanel.SetDataSource(Value: TDataSource);

begin

FDataLink.DataSource := Value;

end;

procedureTDBPanel.DataChange(Sender: TObject);

begin

ifFDataLink.Field = nil thenCaption := ''

elseCaption := FDataLink.Field.AsString;

end;

constructorTDBPanel.Create(AOwner: TComponent);

begin

inheritedCreate(AOwner);

FDataLink := TFieldDataLink.Create;

FDataLink.OnDataChange := DataChange;

end;

destructorTDBPanel.Destroy;

begin

FDataLink.Free;

FDataLink.OnDataChange := nil;

inheritedDestroy;

end;

end.

Использовать формы и компоненты Delphi очень просто. Если управлять этими объектами посредством Инспектора Объектов, то эту задачу можно отнести к числу тривиальных. Динамически создать объект также несложно. В этом документе мы обсудим некоторые вопросы, касающиеся динамического создания компонент во время работы приложения.

(вам следует помнить, что понятие "динамическое" весьма субъективно, поскольку Delphi все объекты создает динамически. Информация, предоставленная здесь — для программиста, который сам собирается создавать/менять свойства/разрушать объекты во время выполнения программы)

Все типы (формы или компоненты) могут создаваться динамически. Чтобы это сделать, необходимо объявить переменную нужного типа в секции VAR вашего кода. Это не создает экземпляр объекта, это создает указатель. Данный указатель расположен в сегменте данных (если переменная объявлена глобально) или в стеке (если переменная объявлена локально в процедуре или функции). Для того, чтобы создать экземпляр класса, вам необходимо вызвать конструктор. Это распределит память в глобальной компьютерной куче для экземпляра класса. При попытке получить доступ к компоненте прежде, чем мы распределим память, мы получим ошибку общей защиты.

Конструктор Create() является классовым методом, наследуемым от класса TObject. Create() возвращает указатель. Данный метод может потребовать (а может и нет) один или несколько параметров. В большинстве компонентов (все объекты, наследуемые от TComponent, имеют право называться компонентами), конструктор на входе требует один параметр, указывающий на "владельца" и имеющий тип TComponent.

При динамическом создании компонента в большинстве случаев владелецем становится "Self". Если вы в этот момент находитесь в одном из методов формы, "Self" в данном контексте будет ссылаться на саму форму. Если владелец является действительным объектом, освобождение этого объекта влечет за собой автоматическое освобождение "дочернего" компонента. Другим распространенным параметром является "Application". Он может использоваться в случае, когда визуальный компонент не должен быть показан программой пользователю. Тем не менее, большинство компонентов не требуют назначения владельца, так что нет ничего необычного в том, что требуемый параметр owner устанавливается в Nil. Но вы должны помнить о том, что впоследствии вы не сможете изменить владельца объекта. Если конструктору при создании был передан Nil, то после использования компонента вы должны сами освобождать его вызовом Free.