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

 


Responder a