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

.
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;

implementation

procedure Register;
begin
 RegisterComponents('Samples', [TDBPanel]);
end;

function TDBPanel.GetDataField: String;
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;

procedure TDBPanel.DataChange(Sender: TObject);
begin
 if FDataLink.Field = nil then Caption := ''
 else Caption := FDataLink.Field.AsString;
end;

constructor TDBPanel.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 FDataLink := TFieldDataLink.Create;
 FDataLink.OnDataChange := DataChange;
end;

destructor TDBPanel.Destroy;
begin
 FDataLink.Free;
 FDataLink.OnDataChange := nil;
 inherited Destroy;
end;
end.

Динамическое создание компонент во время работы приложения

Delphi 1

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