Ola,
Um colega aqui da lista me havia passado o seguinte loop
begin
for y:=0 to ComponentCount-1 do
if (Components[y] is TStaticText) and
(Copy (Components[y].Name,1,2)='lb') then
if RAW_Ping.Ping(TStaticText(Components[y]).Caption) then
begin
for i:=0 to ComponentCount-1 do
if (Components[i] is TWinControl) and
(Copy (Components[i].Name,1,2)='sp') then
TWinControl(Components[i]).Brush.Color:=clGreen
else
TWinControl(Components[i]).Brush.Color:=clRed;
end
o problema é que ele nao funciona e nao acho o pq q ele nao funciona, ele nao
da erro nenhum mais nao funciona...
O que estou fazendo é q existe uma labe chamada lb e para cada lbn existe um
shape chamado spn respectivamente onde n é no numero do componente...
preciso q ele sempre procure em todos componente lb do form pegue o label de
cada um dele e ping o label e de acordo com o resultado o sp respectivo ao seu
lb fique verde ou vermelho...
alguem pode me ajudar??
atc
Rafael
[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] ou [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
