Como saber se o Componente Ativo � descendente de BD?

Question

Ol�, gostaria de saber se tem como eu saber se o componente que esta ativo � descendente do TDataSet, acho que � isso mesmo, ou seja, como saber se ele se liga com o banco de dados, pois preciso saber...

Firekiller · Answer

Tente assim:[code:1:0a72beacfa]function IsDataset( Componente:TComponent ):Boolean;begin   Result:=( Componente is TDataset );end;[/code:1:0a72beacfa]...

Titanius · Answer

Opa Firekiller, e como eu jogo o valkor dentro do campo deste jeito?...

Bruno Belchior · Answer

no caso me parece que voc� deseja saber se ele � descendente de um campo (TField)...

function IsField(Componente: TComponent; Valor: Variant): Boolean; 
begin 
  Result := (Componente is TField); 
  if Result then
  begin
    (Componente as TField).AsVariant := Valor;
  end;
end;

Titanius · Answer

Opa.. � isso mesmo.. obrigado...

Titanius · Answer

Ia me eskecendo... como faco pra saber se o campo eh do tipo Time, Date ou DateTime?[]s...

Bruno Belchior · Answer

pode usar um [b:44bcfb2bc4]or[/b:44bcfb2bc4]:[code:1:44bcfb2bc4]Result := (Componente is TDateField) or (Component is TDateTimeField) or (Component is TTimeField);[/code:1:44bcfb2bc4]...

Titanius · Answer

N�o est� funcionando... veja se estou usando corretamente..[code:1:85d1e8f11c]IsField(Screen.ActiveControl, Now)[/code:1:85d1e8f11c]o Result, sempre retorna False[]s...

Massuda · Answer

Pelo que entendi, ele quer saber se um controle � data aware....

Titanius · Answer

Acho que � isso mesmo que d� o nome, queria ver se ele se liga ao banco de dados, e se ligar, se � do tipo [date, time, datetime] e se for, preencher com a data, hora do dia ( now)[]s...

Massuda · Answer

Acho que n�o existe modo simples de fazer isso, pois os controles data aware s�o implementados por agrega��o e n�o heran�a, por isso qualquer teste usando is n�o funcionar� ou ser� complicado de implementar.

Todo controle data aware � constru�do agregando a ele um objeto interno derivado da classe TDataLink e/ou TFieldDataLink.

O modo mais f�cil de testar se um controle � data aware parece ser testar se o controle possui a propriedade DataSource do tipo TDataSource... tem alguns exemplos aqui no f�rum de como fazer isso, por exemplo, [url=http://forum.clubedelphi.net/viewtopic.php?t=56637]este t�pico[/url].

Titanius · Answer

Valeu Massuda, vou olhar l�......