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
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*
Olá Joel!
Para percorrer os componentes eu executaria uma rotina assim:
procedure PaintShapes;
var
I: integer;
tempComp: TComponent;
begin
for I := 1 to 31 do
begin
tempComp := Components.FindComponent(Format('p%d', [I]));
if (tempComp nil) and (tempComp is
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
4 matches
Mail list logo