Criação de Componentes TdataSource e TFields
22/09/2016
0
Lj Sistemas
Posts
23/09/2016
Jones Granatyr
Não entendi muito bem a dúvida, mas dê uma olhada na seguintes edições da Clube Delphi: 53, 71, 72 e 98. Lá tem alguns artigos sobre criação de componentes que talvez possa ajudar :)
Jones
23/09/2016
Hélio Devmedia
type
TPDDEditFilter = class(TMaskEdit)
private
FDataLink: TDataLink;
public
constructor Create (AOwner: TComponent); override;
property DataField: string read GetDataField write SetDataField;
property DataSource: TDataSource read GetDataSource write SetDataSource;
end;
constructor TPDDEditFilter.Create(AOwner: TComponent);
begin
inherited;
FDataLink := TFieldDataLink.Create;
FDataLink.Control := Self;
end;
function TPDDEditFilter.GetDataField: string;
begin
Result := FDataLink.FieldName;
end;
procedure TPDDEditFilter.SetDataField(const Value: string);
begin
FDataLink.FieldName := Value;
end;
function TPDDEditFilter.GetDataSource: TDataSource;
begin
Result := FDataLink.DataSource;
end;
procedure TPDDEditFilter.SetDataSource(const Value: TDataSource);
begin
FDataLink.DataSource := Value;
end;
23/09/2016
Lj Sistemas
23/09/2016
Lj Sistemas
27/09/2016
Hélio Devmedia
Clique aqui para fazer login e interagir na Comunidade :)