Re: [delphi-br] [urgente] propiedades de componente

2006-10-08 Por tôpico Alexandre Macedo
Olá Rafael,

  Bom os componentes que possuem a propriedade Text  a exemplo do Edit são
herdados da Classe TEditCustom. Por isso você póderá utilizar o seguinte:

  for i:=0 to TForm(sender).ComponentCount-1 do
if TForm(sender).Components[i] is TCustomEdit then begin
  (TForm(sender).Components[i] as TCustomEdit ).Text := '';

Espero ter contribuído.

Sds,
Alexandre Macedo

2006/10/6, Rafael Jorge [EMAIL PROTECTED]:

 como eu faço pra saber se tal compomente tem uma determinada propiedade??
 exemplo eu quero varrer o form e apagar os textos de todos os compomentes
 que tem a propiedade text.
 ai faria assim...
 for i := 0 to self.componentscount -1 do
 if (fu) self.components[i] (funcao que diz se tem a proiedade ou nao)

 --
 Rafael jorge alves
 www.itrecife.com - para verem meus artigos e trabalhos
 t+


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

 



[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]
 
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

 




[delphi-br] [urgente] propiedades de componente

2006-10-06 Por tôpico Rafael Jorge
como eu faço pra saber se tal compomente tem uma determinada propiedade??
exemplo eu quero varrer o form e apagar os textos de todos os compomentes
que tem a propiedade text.
ai faria assim...
for i := 0 to self.componentscount -1 do
 if (fu) self.components[i] (funcao que diz se tem a proiedade ou nao)

-- 
Rafael jorge alves
www.itrecife.com - para verem meus artigos e trabalhos
t+


[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]
 
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

 





Re: [delphi-br] [urgente] propiedades de componente

2006-10-06 Por tôpico Joao Morais
Rafael Jorge wrote:

 como eu faço pra saber se tal compomente tem uma determinada propiedade??
 exemplo eu quero varrer o form e apagar os textos de todos os compomentes
 que tem a propiedade text.
 ai faria assim...
 for i := 0 to self.componentscount -1 do
  if (fu) self.components[i] (funcao que diz se tem a proiedade ou nao)

Veja se é mais ou menos isso o que você precisa:

type
   TCustomEditFriend = class(TCustomEdit);
var
   I: Integer;
begin
   for I := 0 to Pred(ComponentCount) do
 if Components[I] is TCustomEdit then
   TCustomEditFriend(Components[I]).Text := '';

Moral da história - escolha uma classe base, crie um friend para ela e 
altere a propriedade que você quer.

--
João Morais


-- 
 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]
 
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