FDataLink的实例，释放空间。无论是写组件还是写程序我们都要严格注意声明的对象，一定要在使用完之后释放！

添加DataField属性

我们使用此控件的功能目的是想连接好数据库组件后，通过选择字段名，将其字段值显示在Edit.Text中。那么我们还缺一个属性.DataField。

published域声明：

property DataField: string read GetFieldName write SetFieldName;

实现如下：

function TMyDataBaseEdit.GetFieldName: string;

begin

Result := FDataLink.FieldName;

end;

procedure TMyDataBaseEdit.SetFieldName(const Value: string);

begin

FDataLink.FieldName := Value;

end;

OK,这样数据库中的字段就将列在下拉框中了。

下面我们填写我们的数据处理过程：

procedure TMyDataBaseEdit.DataChange(Sender: TObject);

begin

if FDataLink.Field <> nil then

begin

Text := FDataLink.Field.Text;

end;

end;

哈，现在基本上可以运行起来了。现在，我们将Table,DataSource连接起来，来看看当前记录发生改变时，MyDataBaseEdit控件的Edit框中显示所选字段的字段值

添加属性页（About）

现在基本功能已经具备了，下面我们给它加上一个属性页，我们这里只是做一个About对话框演示，开发者可根据自己的实际功能要求自行定制。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有