Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: Ping ausführen und bei Erfolg Farbe ändern

    Delphi
    by Gollum, 23. Mär 2005
  Hallo,
  
  aber sicher doch:
  
  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;
• Forum: Netzwerke

  Re: Ping ausführen und bei Erfolg Farbe ändern

    Delphi
    by Gollum, 22. Mär 2005
  Hallo,
  
  etwa so?
  
  
  procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
  var sTime: string;
  begin
  if (IdIcmpClient1.ReplyStatus.MsRoundTripTime = 0) then sTime:='<1' else sTime:='=';
• Forum: Netzwerke

  Re: Ping ausführen und bei Erfolg Farbe ändern

    Delphi
    by Gollum, 22. Mär 2005
  Hallo,
  
  da ich das mit den Labels nicht verstehe, poste ich Dir eine Version, die die Einträge in der Listbox einfärbt.
  
  Im Objektinspektor stellst Du die Eigenschaft Style der ListBox auf lbOwnerDrawFixed.
  
  procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
  var sText, sTime: string;
  begin