Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

begin

 Result := FDataLink.FieldName;

end;

function TDBPanel.GetDataSource: TDataSource;

begin

 Result := FDataLink.DataSource;

end;

procedure TDBPanel.SetDataField(Const Value: string);

begin

 FDataLink.FieldName := Value;

end;

procedure TDBPanel.SetDataSource(Value: TDataSource);

begin

 FDataLink.DataSource := Value;

end;

• Добавьте

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

{ пример }

private

.

.

procedure DataChange(Sender: TObject); = nil then Caption := '';

implementation

.

.

procedure TDBPanel.DataChange(Sender: TObject);

begin

 if FDataLink.Field 

 else Caption := FDataLink.Field.AsString;

end;

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

{ пример }

public

 constructor Create(AOwner: TComponent); override;

.

.

implementation

.

.

constructor TMyDBPanel.Create(AOwner: TComponent);

begin

 inherited Create(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;

 inherited Destroy;

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 обнаруживает изменение данных и отображает значение соответствующего поля.

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

unit Mydbp;

interface

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

type TDBPanel = class(TCustomPanel)

private

 FDataLink: TFieldDataLink;

 function GetDataField: String;

 function GetDataSource: TDataSource;

 procedure SetDataField(Const Value: string);

 procedure SetDataSource(Value: TDataSource);

 procedure DataChange(Sender: TObject);

public

 constructor Create(AOwner: TComponent); override;

 destructor Destroy; override;

published

 property DataField: string read GetDataField write SetDataField;

 property DataSource: TdataSource read GetDataSource write SetDataSource;

end;

procedure Register;