Gif- Animation weiterlaufen lassen

[stev-e87]

Hallo Community,

ich hänge zur Zeit an einem kleinen Problem fest, das sich wie folgt darstellt: Es soll mittels IdICMPClient ein Ping ausgelöst werden. Da dieser ja bekanntlich auch mal ein zwei Sekunden dauern kann, möchte ich in dieser Zeit eine Warteanimation laufen lassen (JVGifAnimator). Diese "bewegt" sich anfangs auch gut, während der Ausführung des Pings kommt es dann aber zu einem Zustand, in dem man keine Komponenten auf der Form anklicken kann, die Maus wird zur Sanduhr und das Formular benimmt sich, als würde es keine Rückmeldung geben. Dementsprechend bleibt dann auch die Animation stehen.
Hatte schon überlegt das Ganze in eine
Try
Repeat
application.processmessages;
...
Until
Finally
Abfrage zu packen, finde nur keine passende Bedingung für die Repeat- Schleife. Hat jemand eine Idee???

Gruß

[Gehstock]

idAntiFreeze aus der Komponenten Liste könnte da Helfen
etwas von deinem Code währe auch hilfreich

[stev-e87]

Danke, werde es mal ausprobieren.

Der Code war ansonsten dieser:

Delphi-Quellcode:

  
//Statuszeile einblenden und beschriften
  Ani_Connect.Visible:=True;
  Lbl_Action.Caption:=Msg_Action_Ping;
  IcmpClient.Ping(); //Hier "hängt" er sich auf
  Application.ProcessMessages;

[mkinzler]

Dann musst du den Ping in einem gesonderten Thread ausführen