José,
fazendo isso: formatDateTime('dd', now) você consegue pegar o dia atual.
Depois você precisa procurar pelo componente que deseja pintar.
Se os teus TShapes estiverem em um form por exemplo você pode fazer:
if form.FindComponent('p'+formatDateTime('dd', now)) <> nil then //Encontrou
o componente de nome p+dia de hoje ?
if form.FindComponent('p'+formatDateTime('dd', now)).ClassType = tShape
then //Esse componente é um TShape ?
TShape(form.FindComponent('p'+formatDateTime('dd', now))).Brush.Color :=
clYellow; //Pinta de amarelo
Abraço,
Júlio César Santiago Guiótti
Em 25 de agosto de 2010 10:27, Joel Alexandre <
[email protected]> 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:
[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
