Thiagão, acho uma boa idéia procurar a propriedade datasource do componente...
 
Estava olhando aqui alguns componentes dataware, e algo em comum entre eles são 
as classes:
 
TObject
TPersistent
TComponente.
 
Daqui para baixo, as classes tornam-se específicas de cada componente...
 
E olhando a classe TDataSource, ela tem a mesma hierarquia acima...
 
Acho q dá pra fazer algo genérico a partir delas...
 
Um abraço,
Danilo

Francisco Thiago <[EMAIL PROTECTED]> escreveu:
Pessoal,

Preciso de uma ajuda de vocês.

Baixamos aqui no escritório aquela dica do Luciano Pimenta da última edição 
da ClubeDelphi. Lá ele mostra como configurar restriçoes de campos no 
formulário.

Estamos pensando em aprimorar o projeto do Luciano e começar a usar no que 
agente já tem. Só que existe um problema: Como identificar quais os 
controles que estão mostrando os campos? Temos os TDBedit, TDBGrids, 
TDBLabels... TQRLabels... TEvoDbEdit... Enfim, são muitos os componentes que 
podem ter essa função.... Logo, criar um if para cada tipo de objeto não dá. 
Daí pensei em ver a hierarquia deles.... Descobri que cada um vai pra um 
lado, ou seja, não tem uma classe comum (ou tem?).... Agora estou pensando 
em procurar nestes componentes a propriedade DataSource. O que vocês acham? 
Teria um jeito melhor de descobrir quais componentes são DataWare?

No exemplo do Luciano, ele modifica o texto mostrado para '*'... (property 
PasswordChar)... Mas como fazer isso num TDBText por exemplo? Ou num Grid 
Então? Modificar a propriedade visivel do objeto seria uma saída, porém, o 
form não ficaria muito bem estéticamente.... O que vocês sugeririam?


[]'s


Francisco Thiago de Almeida
Enter & Plug Informática
Divisão: Desenvolvimento e Banco de dados
Franca / SP
msn: [EMAIL PROTECTED]



      
      
            
_______________________________________________________ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/ 


-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:var target="_blank";var URL = new 
Array();URL[1] = 
"http://br.rd.yahoo.com/SIG=12f7sbi08/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124470777/A=2932553/R=0/id=flashurl/SIG=10tift5qr/*http://br.movies.yahoo.com/";var
 link="javascript:openWindow(1)";var flashfile = 
'http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.swf?clickTAG='+link+'';var
 altURL = 
"http://br.rd.yahoo.com/SIG=12f7sbi08/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1124470777/A=2932553/R=1/id=altimgurl/SIG=10tift5qr/*http://br.movies.yahoo.com/";var
 altimg = 
"http://br.i1.yimg.com/br.yimg.com/i/br/ads5/cinema_n_suspense.gif";var width = 
468;var height=60;

---------------------------------
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 


                
---------------------------------
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 


Responder a