Ping ausführen und bei Erfolg Farbe ändern

[Gollum]

Hallo,

aber sicher doch:

Delphi-Quellcode:

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent; 
  const AReplyStatus: TReplyStatus); 
begin 
  if (IdIcmpClient1.ReplyStatus.BytesReceived>0) then Label1.Font.Color:=clGreen 
    else Label1.Font.Color:=clRed; 
end;