Vc precisa de mais ou menos isso...
for i := 0 to componentscount - 1 do begin
if (components[i] IS TShape) then begin
(components[i] AS TShape).Color := clLime;
end;
end;
Teste o codigo, fiz direto no e-mail... rs
Att,
*Jhosef Marks de Carvalho*
*Blog: **http://www.jhosefmarks.com.br* <http://www.jhosefmarks.com.br>*
Jesus está voltando
*
*"E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar
a minha face e se converter dos seus maus caminhos, então eu ouvirei dos
céus, e perdoarei os seus pecados, e sararei a sua terra." (2 Cr 7:14) *
Em 25 de agosto de 2010 10:27, Joel Alexandre <
joel_alexandre2...@yahoo.com.br> escreveu:
>
>
> Bom dia pessoal,
>
> Galera, estou com uma duvida aqui e deu branco. Tenho 31
> componentes tipo TShape com nos names de p1 a p31. Gostaria de pintá-los
> conforme o dia atual. Alguem teria uma ideia de como fazer isso?
>
> Abraços e já agradeço qq ajuda
> Joel
>
>
>
[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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
