Fórum Criando Componentes #142154

Você tem que ciar uma classe derivada de TDatalink, sobrescrevendo alguns métodos.

Depois, Coloque um campo de dados do tipo igual à classe que vc criou.

Obviamente , seu coponente terá uma propriedade DataSource, portanto, no método SetDatasource você deve configurar o valor da propriedade DataSource do seu Datalink. Da mesma forma, o método GetDataSource deve retornar o DataSource do Datalink.

Ex:

Type

TMeuDatalink = class(TDatalink)
protected
{sobrescreva os métodos ActiveChanged e EditingChanged para que o seu componente responda a aberturas/fechamentos/mudanças de estado da tabela}
end;

TMeuDbNavigator = class(TMeuAncestral)
private
FDatalink : TMeuDatalink;
function GetDataSource : TDataSource;
procedure SetDataSource(Value :TDatasource);
published
property DataSource : TDataSource read GetDataSource
write SetDataSource;
end;

funcion GetDataSource : TDataSource;
begin
Result := FDataLink.DataSource;
end;

procedure SetDataSource(Value :TDatasource);
begin
FDataLink.DataSource := Value;
end;